dbgrid双击事件为什么要双击2次才能打开窗口？

guang2356447

注册会员

Rank: 2

帖子: 153
精华: 0
性别: 男
注册时间: 2007-7-10

1^# 大中小发表于 2007-11-3 23:53 只看该作者

dbgrid双击事件为什么要双击2次才能打开窗口？

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;

搜索更多相关主题的帖子: dbgrid 窗口 wcl begin end

TOP

xu2000

论坛元老

Rank: 8 Rank: 8

帖子: 3624
精华: 5
性别: 男
注册时间: 2006-4-8

2^# 大中小发表于 2007-11-4 22:47 只看该作者

第一次是建立，第二次才显示，当然要两次才能显示出来。

if adoquery1.Eof then exit;
if Not assigned(wcl) then
begin
Application.CreateForm(Twcl,wcl);
wcl.show;
end;

我会拿出我全部的钱财，以保你衣食无忧。我会献出我所有的智慧，以助你一帆风顺。我会想到所有的笑语，以令你展眉开颜。我会挤出最长的时间，以使你终生幸福。　 [本人原创的结婚宣言]

TOP

guang2356447

注册会员

Rank: 2

帖子: 153
精华: 0
性别: 男
注册时间: 2007-7-10

3^# 大中小发表于 2007-11-4 23:26 只看该作者

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

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