Скачать: CL | DM;

События.   Найти похожие ветки 

← →
MAXX_MAIL   (2003-03-15 23:25) [0]

Привет МАСТЕРА!!! Как заставить программно что бы по нажатию кнопки выполнилось событие FormActivate или какое-то другое. Если можно на примере!!!

---

← →
Anatoly Podgoretsky ©   (2003-03-15 23:58) [1]

Ты чего то мудрищь, это событие возникает при прннятии формой фокуса, вызывать же программно чревато.

---

← →
DJ_Sedoy ©   (2003-03-16 03:43) [2]

Может имеется в виду ОБРАБОТЧИК СОБЫТИЯ?
Тогда очень просто:

procedure TForm1.Button1Click(Sender: TObject);
Begin
if Sender = Button1 then
Begin
{тут выполняем что-то специфичное для случая, когда именно Button1 вызвала метод}
end;
if Sender = Кто-то еще then
Begin
{аналогично для кого-то еще}
end;
{ну и общее что нить для них всех}
end;

procedure TForm1.MySomeProc(Sender: TObject);
Begin
//Делаем что-то, в результате чего вдруг надо сделать
Button1.Click(Sender);
end;

Имеет смысл, если (например) несколько кнопок, с которыми надо совершить одинаковые действия. К примеру, кнопки состояния, форматирования текста (ну или что еще на ум придет). Например тогда можно написать внутри метода так:

procedure TForm1.AllButtons(Sender: TObject);
Begin
TToolButton(Sender).Marked:=NOT TToolButton(Sender).Marked;
.......
end;

Если конечно имелось в виду ВЫПОЛНИТЬ обработчик события.

---

← →
OxOTHuK   (2003-03-16 21:52) [3]

1. кидаешь на форму кнопку
2. кликаешь по кнопке 2 раза левой кнопкой мыши
3. ты видишь процедуру TForm1.Button1Click(Sender: TObject);
4. в рамках begin и end пишешь все что хочешь.
4.1. как заметил Anatoly Podgoretsky лучше не вызывать активацию формы... это событие само активируется.

---

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

Скачать: CL | DM;



Память: 0.45 MB
Время: 0.012 c