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;出错,不知怎么写
帮帮忙啊
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;出错,不知怎么写
帮帮忙啊