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


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



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

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

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



Начало Назад Вперед