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

Вниз

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

← →
zool   (2002-01-24 20:27) [0]

Уважаемые програмисты. Слезно прошу о помощи! Я создал компонент на форме во время выполнения программы (компонент - button 1). Можна ли обрабатывать события on-click данного компонента. Если не сложно, то скиньте пример. С-п-а-с-и-б-о.

---

← →
Юрий Зотов   (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;

---

← →
DMN   (2002-01-24 20:35) [2]

TMyForm=class(TForm)
//.............
procedure RunTimeClickHandler(Sender:TObject);
//.............
end;


//.................
RTButton := TButton.Create(Self);
RTButton.Parent := Self;
RTButton.OnClick := RunTimeClickHandler;

---

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

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

Наверх

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