关于参照窗体的问题

Question

我想在文本框旁边加个按钮，点按钮时弹出参照窗体，在参照窗体上选择内容后点确定，则参照窗体关闭，选定的内容输入到文本框中，请问怎么能将返回的内容准确添加到那个文本框中（我可能有很多窗体都要参照相同的内容，我不知道如何能准确将返回值添加到文本框中），请朋友们给些建议

Answer 1

frm:=tfrm.create(nil);
try
frm.showmodal;
if frm.modalresult=mrOK then
begin
  edt.text:=frm.内容;
end;
fianlly
frm.free;
enf;

Answer 2

能跟我说说在delphi中怎么创建类吗？如果不是很麻烦的话，能给我个例子吗？