如何实现PB中的openwindow(Form var, 'formname');(100分)

87150 · 2001-06-04

我想在LISTVIEW的ITEM CLICK事件中
实现根据LISTITEM.caption {Caption的值是要打开的FORM NAME}

var
ABC :Tcustomform;
Begin
OpenWindow(ABC ,Listitem.Caption);
End;

sherman · 2001-06-05

设置一个TList,将Listitem.caption和form类存放在TList.Item.data中，
你就可以使用TForm(list.item.data).Show;

TIMDONG · 2001-06-05

Listen.

luyear · 2001-11-14

87150：:你的问题已过期，要继续请结束，否则请提前,谢谢

zm30 · 2001-11-14

Procedure OpenWindow(form:Tformclass)
begin
with Tfromclass.create(application) do show
end;

openwindow(TfrmDialog);

87150 · 2001-12-09

多人接受答案了。