当前位置:主页>仓库管理软件> 列表

我从两个不同的按钮SHOW同一个窗口,怎么做到显示的东西不

财务软件版1楼: 我从两个按钮调用同一个窗口。此窗口里有几个tabsheet.
我想从按钮1SHOW此窗口时无限制,从按钮2SHOW此窗口时想隐藏某个tabsheet,怎么处理好?

2楼: 创建不同的对象来操作。。。

Procedure Form1.Button1Click( Sender : Object )
var
BtnForm1 : TForm2;
Begin
BtnForm1 = TForm2.Create( Self );
....操作对于第一个窗口的消息
BtnForm1.Show;
End;

Procedure Form1.Button2Click( Sender : Object )
var
BtnForm2 : TForm2;
Begin
BtnForm2 = TForm2.Create( Self );
....操作对于第二个窗口的消息
BtnForm2.Show;
End;


操作中注意Delphi自动定义那个全局变量,不要和它同名。 如深圳金碟财务软件

3楼: tabsheet.tabvisible:=false;

4楼: Use ActionList,You will be find it usefull!

5楼: 可以给分结贴了!
1、在调用的窗体的(form2),定义个变量FrmTag
...
public
{ Public declarations }
//0,1
FrmTag:Integer;
....
2、按钮一、二中,写入如下代码(窗体要动态创建),按钮的窗体名为(form1):


Procedure Form1.Button1Click( Sender : Object )
var
Form2 : TForm2;
Begin
Form2 = TForm2.Create( Self );
Form2.FrmTag:=0;
调用的窗体名
Form2.Show;
End;
Procedure Form1.Button2Click( Sender : Object )
var
Form2 : TForm2;
Begin
Form2 = TForm2.Create( Self );
Form2.FrmTag:=1;
调用的窗体名
Form2.Show;
End;
3、form2中
procedure TForm2.FormShow(Sender: TObject);
begin
//从第二按钮来的
IF FrmTag=1 Then
begin
某个tabsheet的名.tabvisible:=false;
end;
end;

6楼: 记得要给分[:D]

财务软件版7楼: 多人接受答案了。