如何告诉一个按钮我单击她拉

Question

如何告诉一个按钮我单击她拉
sendmessage 该怎么写sendmessage是用来发数据量比较大的消息的，和按钮有什么关系?
不明白你要作什么

Answer 1

procedure TForm1.Button1Click(Sender: TObject);
begin
  PostMessage(Button2.Handle,WM_LBUTTONDOWN,0,0);
  PostMessage(Button2.Handle,WM_LBUTTONUP,0,0);
end;
—————————————————————————————————
MaximStr := '宠辱不惊，看庭前花开花落，去留无意；
             毁誉由人，望天上云卷云舒，聚散任风。';
if Not Assigned(I) then
  I := TI.Create(Nil);
I.Maxim := MaximStr;
I.Explain := '假如上述代码中出现“OA”、“3D”等字样，改为“=”或者去掉';
I.Desire := '加不加分随你';
—————————————————————————————————
　　　　　　　

Answer 2

procedure TGetMainForm.btGetClick(Sender: TObject);
begin
  showmessage('别用你的脏手碰'+ Self.Name);
end;