procedure Tylb.DBGrid1DblClick(Sender: TObject);
begin //dbgrid双击事件是ondblclick
if adoquery1.Eof then exit;
if Not assigned(wcl) then
begin
Application.CreateForm(Twcl,wcl);
end
else
begin
wcl.show;
end;
wcl.label1.caption:=adoquery1.FieldValues['kh_tsfs'];
wcl.label2.caption:=adoquery1.FieldValues['kh_tsdw'];
wcl.label6.caption:=adoquery1.FieldValues['kh_tsyy'];
end;

if Not assigned(wcl) then
begin
Application.CreateForm(Twcl,wcl);
wcl.show;
end
else
begin
wcl.Show;
end;

谢谢 xu2000
这个是打开这个窗口后 如果不关闭的情况下 再双击改事件就打开已经运行的窗口 呵呵 表达的不好 嘿嘿
可以拉