奇怪的PageControl问题(100分)

  • 主题发起人 主题发起人 lwgsyd
  • 开始时间 开始时间
L

lwgsyd

Unregistered / Unconfirmed
GUEST, unregistred user!
我在一子窗口Form2中放了个 PageControl ,在设计时可以正常翻页,但在编译后点上面相应的 TabSheet1,就不起作用了,始终只显示当前页面,这是什么原因啊?
 
发现了,把
Form2:=TForm2.Create(self);
Form1.Hide;
Form2.Show;
Form2.Hide;
改为
Form2:=TForm2.Create(self);
Form1.Hide;
Form2.ShowModal;
Form2.Hide;
就可以了,但是这样做的话 Form2隐藏不了啊,我是想通过热键来呼出Form2的
 
我D7里没问题呀
unit Unit1;
interface
uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs,Unit2, StdCtrls;
type
TForm1 = class(TForm)
Button1: TButton;
Button2: TButton;
procedure Button1Click(Sender: TObject);
procedure Button2Click(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
form2 : Tform2 ;
end;

var
Form1: TForm1;
implementation

{$R *.dfm}
procedure TForm1.Button1Click(Sender: TObject);
begin
Form2:=TForm2.Create(self);
Form2.Hide;
end;

procedure TForm1.Button2Click(Sender: TObject);
begin
form2.Show ;
end;

end.
不知道为你在hide之前,要show一下,这样做让人看到窗体闪一下很不好的。
 
Form2:=TForm2.Create(nil);
Form2.ShowModal;
Form1.Hide;
在DESTROY时FREE掉
 

Similar threads

D
回复
0
查看
825
DelphiTeacher的专栏
D
D
回复
0
查看
831
DelphiTeacher的专栏
D
D
回复
0
查看
867
DelphiTeacher的专栏
D
后退
顶部