Иллюстрированный самоучитель по Kylix

       

Код обработки события OnPaint



Листинг 13.1.Код обработки события OnPaint

procedure TForm1.FormPaint(Sender: TObject);
begin
messagedlg('Произошло обновление формы' ,mtInformation, [mbOK], 0);
end;

Теперь напишем код обработки события OnClick.



Содержание раздела