label的问题

[slchen]

如何判断label被点击了，我知道radio用radio.checked,那么label如何判断？

[DelUser]

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

[slchen]

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

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

[adminis]

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

[andylife]

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

[andylife]

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;

这样可以了吧？

[slchen]

谢谢 andylife(猫王)

[andylife]

不用

[skimeister]

label没有onClick事件的吗？

[票票飞扬]

OnClick

[票票飞扬]

OnClick

[slchen]

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

[andylife]

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 的值就的了

[johnsonrao]

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

[johnsonrao]

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

[gxchen]

楼上说得是

[madyak]

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

[xiatianyun]

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

[xiatianyun]

有人发言了，同意。