如何使一个MDICHILD的FORM的界面一直位于所有的FORM上面???(20分)

  • 主题发起人 主题发起人 jjgaodeng
  • 开始时间 开始时间
J

jjgaodeng

Unregistered / Unconfirmed
GUEST, unregistred user!
如何使一个MDICHILD的FORM的界面一直位于所有的FORM上面???
以及如何控制MDICHILD中MDICHILD.FORM打开的数量,如限制打开
2个或3个等???
 
function TGnv_App.of_OpenSheet(FormClass: TFormClass; var Form :TForm): Integer;
var
i : integer;
Child : TForm;
begin
for i := 0 to Screen.FormCount -1 do
if Screen.Forms.ClassType=FormClass then
begin
Child:=Screen.Forms;
if Child.WindowState=wsMinimized then
Child.WindowState:=wsNormal;
Child.BringToFront;
Child.Setfocus;
TForm(Form):=Child;
exit;
end;
Form := FormClass.Create(Application);
 
后退
顶部