子窗口显示(50分)

  • 主题发起人 wangqinyun2000
  • 开始时间
W

wangqinyun2000

Unregistered / Unconfirmed
GUEST, unregistred user!
if f31<>1 then
begin
Form6:=TForm6.Create(self.Panel4);
Form6.Parent:=self.Panel4;
Form6.Height:=self.Panel4.ClientHeight;
Form6.Width:=self.Panel4.ClientWidth;
Form6.Top:=0;
Form6.Left:=0;
f31:=1;
Form6.FormStyle:=fsStayOnTop;
Form6.Show;
end
else
begin
Form6.WindowState:=wsMaximized;
Form6.Show;

end;
end;

程序在 Form6.WindowState:=wsMaximized;
Form6.Show;出错,不知怎么写
帮帮忙啊
 
問題OK,誰出來接分!!
代碼如下:
if Form6=nil then
begin
Form6:=TForm6.Create(self.Panel4);
Form6.Parent:=self.Panel4;
Form6.Height:=self.Panel4.ClientHeight;
Form6.Width:=self.Panel4.ClientWidth;
Form6.Top:=0;
Form6.Left:=0;
end;
// ?查窗口是否被最小化了
if IsIconic(Form6.Handle) then
ShowWindow(Form6.Handle, SW_RESTORE) else
Form6.Show;
Form6.BringToFront;
//OK
Form6.FormStyle:=fsStayOnTop;
Form6.Show;
 
Form6:=TForm6.Create(self.Panel4);
这句最好改成:
Form6:=TForm6.Create(Application);
或者
Application.CreateForm(TForm6, Form6);
 
这样改效果好嘛?
根据楼主的意思,Form6是在Panel4上显示吧,不指明的话能显示嘛?
 
俺来接分
 
多人接受答案了。
 

Similar threads

S
回复
0
查看
683
SUNSTONE的Delphi笔记
S
I
回复
0
查看
309
import
I
I
回复
0
查看
555
import
I
顶部