Главная страница
Top.Mail.Ru    Яндекс.Метрика
Текущий архив: 2003.03.27;
Скачать: 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 вся ветка

Текущий архив: 2003.03.27;
Скачать: CL | DM;

Наверх




Память: 0.47 MB
Время: 0.015 c
3-87881
Makhanev A.S.
2003-03-08 00:02
2003.03.27
Посоветуйте, плз быстрый Table...


14-88251
ККВ
2003-03-12 15:07
2003.03.27
SoftIce


6-88125
D.V.K
2003-01-23 13:28
2003.03.27
Как возобновить копирование файла после падения локальной сети


14-88146
boband
2003-03-12 22:38
2003.03.27
Как искать утечки памяти?


1-87956
GIMLI
2003-03-16 14:19
2003.03.27
Старые открытые файлы