如何在form1中的button1.click()事件中，调用 form2.paint();????

Question

有 form1 form2  单击form1， 来刷新form2,即调用form2.paint()中的代码阿？？？
如何在form1中的button1.click()事件中，调用 form2.paint();????
在线恭候大虾！！

Answer 1

uses form2button onclick
   form2.paint;

Answer 2

uses
  unit2;...
  form2.Paint(sender);
...

Answer 3

uses unit2;.....
procedure TForm1.Button1Click(Sender: TObject);
begin
  form2.paint();
end;

Answer 4

procedure TForm1.Button1Click(Sender: TObject);
begin
  if Assigned(Form2) then
     form2.paint();
end;

Answer 5

procedure TForm1.Button1Click(Sender: TObject);
begin
Form2.OnPaint(sender);
end;

Answer 6

SendMessage(Form2.Handle,WM_CLOSE, 0, 0);

Answer 7

写错了，是 sendmessage(Form2.Handle, WM_PAINT, 0, 0);