不看会后悔的Windows XP之经验谈	简单快捷DIY实用家庭影院

label的问题

楼主slchen（笨鸟先飞）2002-06-19 11:43:21 在 Delphi / VCL组件开发及应用提问

如何判断label被点击了，我知道radio用radio.checked,那么label如何判断？问题点数：20、回复次数：16Top

1 楼skimeister（网寻欢╃）回复于 2002-06-19 11:45:00 得分 0

label没有onClick事件的吗？
Top

2 楼genphone_ru（哎，什么都要学，真累）回复于 2002-06-19 11:45:39 得分 0

OnClickTop

3 楼genphone_ru（哎，什么都要学，真累）回复于 2002-06-19 11:46:06 得分 0

OnClickTop

4 楼slchen（笨鸟先飞）回复于 2002-06-19 11:52:49 得分 0

我试过了，if label1.onclick then...
报错：没有足够的实参！Top

5 楼andylife（猫王）回复于 2002-06-19 11:55:37 得分 0

public
Label_Clicked:Boolean;

FormCreate 中
Label_Clicked:=False;

procedure TForm1.Label1Click(Sender: TObject);
begin

if Label_Clicked =False then
Label_Clicked:=True
else
Label_Clicked:=False;

end;

在使用的地方判断 Label_Clicked 的值就的了
Top

6 楼johnsonrao（johnson）回复于 2002-06-19 11:56:10 得分 0

procedure TForm1.Label1Click(Sender: TObject);
begin
ShowMessage('...');
end;
Top

7 楼johnsonrao（johnson）回复于 2002-06-19 12:00:40 得分 0

procedure TForm1.Label1Click(Sender: TObject);
begin
ShowMessage('...');
end;
Top

8 楼gxchen（）回复于 2002-06-19 12:00:57 得分 0

楼上说得是Top

9 楼madyak（无天）回复于 2002-06-19 12:01:01 得分 0

如果简单使用可以设置Label的FocusControl属性，将其与可接收焦点的控件相关联就行了，如果真的需要事件的话，用第三方控件即可！Top

10 楼xiatianyun（夏天的云）回复于 2002-06-19 12:08:46 得分 0

刚实验过，一切都没问题呀。
procedure TForm1.Label1Click(Sender: TObject);
begin
Label1.Caption := 'ok';
end;
楼上，if label1.onclick then...是什么意思？
Top

11 楼xiatianyun（夏天的云）回复于 2002-06-19 12:11:30 得分 0

有人发言了，同意。Top

12 楼DelUser（探索者）回复于 2002-06-19 13:07:06 得分 0

有Onclick事件啊，自己看一下不就知道了吗？
这种问题你怎么也拿出来问，自己应该先看看吗！
不然的话怎么会有长进！Top

13 楼slchen（笨鸟先飞）回复于 2002-06-19 17:04:19 得分 0

可能我说的不清楚，我是想实现象radio的用法，radio用radio.checked判断是否被选中。if label1被点击 then...
else if label2被点击 then ...
......

我当然知道,label有Onclick事件！

Top

14 楼adminis（古董）回复于 2002-06-19 17:23:26 得分 0

还不是一样了！
if label1.onclick then……Top

15 楼andylife（猫王）回复于 2002-06-19 17:48:28 得分 0

不明？按我上面说的方法不就成了吗？
Top

16 楼andylife（猫王）回复于 2002-06-19 17:54:40 得分 20

public
Label_Clicked:Integer;

FormCreate 中
Label_Clicked:=0;

procedure TForm1.Label1Click(Sender: TObject);
begin
Label_Clicked:=1;
end;

procedure TForm1.Label2Click(Sender: TObject);
begin
Label_Clicked:=2;
end;
.................

Case Label_Clicked of
1: .........
2: .........
............

end;

这样可以了吧？Top

17 楼slchen（笨鸟先飞）回复于 2002-06-19 19:31:09 得分 0

谢谢 andylife(猫王)Top

18 楼andylife（猫王）回复于 2002-06-19 23:20:54 得分 0

不用Top