Вниз
Скачать: 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.013 c
14-60379
Za-aDa
2003-06-02 23:42
2003.06.19
Классы в Delphi


3-60026
plans
2003-05-27 13:24
2003.06.19
Почему не могу явно указать имя индекса?


14-60394
New_At_Asm
2003-06-02 15:28
2003.06.19
А здесь можно задать вопрос начинающего по асму?


1-60112
Klim Samgin
2003-06-06 08:38
2003.06.19
TThread


1-60165
tasman
2003-06-06 06:51
2003.06.19
Динамическое назначение event у компоненты NMPop3 (из FastNet)




   Наверх