label的问题

Question

label没有onClick事件的吗？

Answer 1

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

Answer 2

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

Answer 3

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

Answer 4

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

Answer 5

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

Answer 6

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

Answer 7

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

Answer 8

可能我说的不清楚，我是想实现象radio的用法，radio用radio.checked判断是否被选中。if label1被点击 then...
       else if label2被点击 then ...
      ......我当然知道,label有Onclick事件！

Answer 9

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

Answer 10

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;  这样可以了吧？