Вниз
Скачать: CL | DM;

Вопрос про события   Найти похожие ветки 

 
killer ©   (2003-06-06 18:07) [0]

Вот у меня форма. При нажатии на кнопку всплывает еще одна : Form2.ShowModal; На той форме 2-е кнопки :Да,Нет. Так как мне определить нажатие первой или второй? Пишу:

Form2.ShowModal;
If Form2.Button1.OnClick then
begin
.....
end;
If Form2.Button2.OnClick then
begin
.....
end;

Ничего не получается :( Что делать?


 
Skier ©   (2003-06-06 18:12) [1]

А настойчивый парень !


 
Darrin ©   (2003-06-06 18:15) [2]

Даже не знаю что сказать и как реагировать.


 
killer ©   (2003-06-06 18:21) [3]

не поможете да? :(


 
Юрий Федоров ©   (2003-06-06 18:33) [4]

Для кнопки 1 определяешь в инспекторе объектов св-во ModalResult как MrOk
для другой как MrCancel
При вызове пишешь :
if Form2.ShowModal = MrOk then
begin
//нажата кнопка ОК
end;


 
WarLord ©   (2003-06-06 21:32) [5]


> If Form2.Button1.OnClick then

полный бред... событие - это не функция


 
circul ©   (2003-06-06 21:49) [6]

Form2.ShowModal;

if Tag = 1 then ...
if Tag = 2 then ...


в форме 2(как один из многочисленных методов):

Form2.Button1.OnClick(Sender: TObject);
begin
Form1.Tag := 1;
end;
Form2.Button2.OnClick(Sender: TObject);
begin
Form1.Tag := 2;
end;


 
Yanis ©   (2003-06-06 21:58) [7]

To killer ©
А зачем тебе это определять, неужели стандартные обработчики типа
Button1.OnClick уже не помогают?


 
Pat ©   (2003-06-06 22:03) [8]

ShowModal эта функция и отсюда надо плясать...какие нафиг таги?!?!? :eek:
Юрий Федоров © (06.06.03 18:33) все сказал


 
Vulko ©   (2003-06-06 22:59) [9]


> какие нафиг таги

А почему бы через тэг не сделать?

Можно вообще смотреть sender :P



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

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



Память: 0.46 MB
Время: 0.012 c
3-60060
GreySerg
2003-05-28 11:40
2003.06.19
Как восстановить базу данных Interbase 5.5 ?


8-60278
Mel26
2003-03-02 21:28
2003.06.19
Фильтр баланса цветов


1-60244
Катерина
2003-06-05 13:59
2003.06.19
Циклическая перестановка байтов в integer


1-60245
vlv
2003-06-05 20:37
2003.06.19
Как преобразовать строку, содержащую 16-тиричное выражение?


6-60299
Zheka
2003-04-18 12:01
2003.06.19
Передача данных с досовской машины на Виндовозную




   Наверх