Question

在Delphi中如何通过程序控制触发OnPain事件？请高手指点~~

Answer 1

Paint，窗体重新绘画时触发事件（窗口在最小化最大化，显示隐藏等。。。）
不知道你所说的意思，程序控制触发是什么意思，如果要触发FormPaint，随便修改窗体的长宽就可以了。
procedure TForm1.FormPaint(Sender: TObject);
begin
showmessage('aaa');
end;

procedure TForm1.Button1Click(Sender: TObject);
begin
// form1.Width := form1.Width-2;
// form1.Width := form1.Width+2;
form1.Height := form1.Height -2;
form1.Height := form1.Height+2;
//
//
end;