看一个函数的声明。有一个参数到底是什么类型?

zjybestzjybest 2003-02-18 08:30:21
procedure OpenForm(FormClass: TFormClass; var fm; AOwner:TComponent);
var
i: integer;
Child:TForm;
begin
for i := 0 to Screen.FormCount -1 do
if Screen.Forms[i].ClassType=FormClass then
begin
Child:=Screen.Forms[i];
if Child.WindowState=wsMinimized then
ShowWindow(Child.handle,SW_SHOWNORMAL)
else
ShowWindow(Child.handle,SW_SHOWNA);
if (not Child.Visible) then Child.Visible:=True;
Child.BringToFront;
Child.Setfocus;
TForm(fm):=Child;
exit;
end;
Child:=TForm(FormClass.NewInstance);
TForm(fm):=Child;
Child.Create(AOwner);
end;

调用是OpenForm(Tfrm_YQ_Lab,frm_YQ_Lab, self);

我知道这个程序的作用,就是不知道
procedure OpenForm(FormClass: TFormClass; var fm; AOwner:TComponent);
中的fm是什么类型?也就是如果参数不定义类型是什么类型的问题?
...全文
85 5 打赏 收藏 转发到动态 举报
写回复
用AI写文章
5 条回复
切换为时间正序
请发表友善的回复…
发表回复
zjybestzjybest 2003-02-18
  • 打赏
  • 举报
回复
肯定是TFORM的子类。这我是知道的
sevencat 2003-02-18
  • 打赏
  • 举报
回复
TForm(fm):=Child;
也许应该是个TFORM的子类。
zjybestzjybest 2003-02-18
  • 打赏
  • 举报
回复
无类型指针是这样设定的吗?
outer2000 2003-02-18
  • 打赏
  • 举报
回复
好象是无类型的指针;
radeonle 2003-02-18
  • 打赏
  • 举报
回复
up

5,386

社区成员

发帖
与我相关
我的任务
社区描述
Delphi 开发及应用
社区管理员
  • VCL组件开发及应用社区
加入社区
  • 近7日
  • 近30日
  • 至今
社区公告
暂无公告

试试用AI创作助手写篇文章吧