Question

delphi label 点击问题

我通过不同的判断，得到label1不同的值，然后我又通过点击label1，得到richedit不同内容显示。我该如何编程？

Answer 1

if a>0 then
label1.Caption:='机八'
else
label1.Caption:='阴道';

或者
case hhh of
0:label1.Caption:='阴道';
1:label1.Caption:='机八'
2:label1.Caption:='儿子'
3:label1.Caption:='孙子'
.............想多少,就写多少
end;
然后标签单击事件 haohao8080已经写了,不重复.

Answer 2

在label1的OnClick事件中写：
richedit.text := label1.Caption;

Answer 3

不是有okclick事件么？