Главная страница
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.017 c
3-87874
Roki
2003-03-07 12:33
2003.03.27
Как в IB(FireBird) добавить ограничение на значение поля?


14-88197
alxx
2003-03-09 22:57
2003.03.27
Иконки


3-87864
SVA
2003-03-11 09:48
2003.03.27
Помогите с Select


6-88120
КилоМег
2003-02-04 15:56
2003.03.27
Жив ли клиент ?


14-88237
AlLive
2003-03-05 02:07
2003.03.27
Прием отправка e-mail средствами Delphi 6