form窗体的问题。

Question

在form上放了一个button。
然后设置单击button的函数，如下：
procedure TForm1.Button2Click(Sender: TObject);
begin
form1.Color := rgb( 255,255,255);
form1.Canvas.TextOut(50,50,'test');
end;
奇怪的是，为什么要单击button两次，才能在窗体上显示test？？
第一次单击的时候，只是把背景色改为白色

Answer 1

procedure TForm1.Button1Click(Sender: TObject);
begin
 form1.Color := rgb( 255,255,255);
Repaint;
 Canvas.TextOut(50,50,'test') ;end;

Answer 2

procedure TForm1.Button1Click(Sender: TObject);
begin
 form1.Color := rgb( 255,255,255);
Update;
 Canvas.TextOut(50,50,'test') ;end;或者直接更新也可以。