Форум: "Основная";
Текущий архив: 2002.02.07;
Скачать: [xml.tar.bz2];

Вниз

Компоненты   Найти похожие ветки 

← →
Юрий Зотов   (2002-01-24 20:33) [1]

type
TForm1 = class(TForm)
...
procedure MyClick(Sender: TObject); // написать ручками
...
end;

procedure TForm1.MyClick(Sender: TObject); // написать ручками
begin
... // Ваш код
end;

И теперь там, где Вы создаете Button1, напишите строку:
Button1.OnClick := MyClick;

---

Страницы: 1 вся ветка

Форум: "Основная";
Текущий архив: 2002.02.07;
Скачать: [xml.tar.bz2];

Наверх

Память: 0.43 MB
Время: 0.004 c