Код обработки события OnPaint
Листинг 13.1.Код обработки события OnPaint
procedure TForm1.FormPaint(Sender: TObject);
begin
messagedlg('Произошло обновление формы' ,mtInformation, [mbOK], 0);
end;
Теперь напишем код обработки события OnClick.
Иллюстрированный самоучитель по Kylix
Листинг 13.1.Код обработки события OnPaint
procedure TForm1.FormPaint(Sender: TObject);
begin
messagedlg('Произошло обновление формы' ,mtInformation, [mbOK], 0);
end;