我想将FORM的属性控制归纳为外部过程,请问如何实现?
Main.pasuses pub;procedure TfrmMain.FormCreate(Sender: TObject);
begin
// 定义主窗体显示区
IniForm(frmMain.Handle);
end;pub.pasprocedure IniForm(AHandle:THandle);
var
Form:TFrom;
begin
//application.handle:=Ahandle;
// Form.handle:=Ahandle; form的handle 属性是只读的能象application就好了
Form.AutoSize:=false;
Form.Width:=Screen.WorkAreaWidth;
Form.Height:= Screen.WorkAreaHeight;
Form.AutoSize:=true;
end;
Main.pasuses pub;procedure TfrmMain.FormCreate(Sender: TObject);
begin
// 定义主窗体显示区
IniForm(frmMain.Handle);
end;pub.pasprocedure IniForm(AHandle:THandle);
var
Form:TFrom;
begin
//application.handle:=Ahandle;
// Form.handle:=Ahandle; form的handle 属性是只读的能象application就好了
Form.AutoSize:=false;
Form.Width:=Screen.WorkAreaWidth;
Form.Height:= Screen.WorkAreaHeight;
Form.AutoSize:=true;
end;
解决方案 »
免费领取超大流量手机卡,每月29元包185G流量+100分钟通话, 中国电信官方发货