Главная страница
    Top.Mail.Ru    Яндекс.Метрика
Форум: "Основная";
Текущий архив: 2003.06.19;
Скачать: [xml.tar.bz2];

Вниз

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

 
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 вся ветка

Форум: "Основная";
Текущий архив: 2003.06.19;
Скачать: [xml.tar.bz2];

Наверх





Память: 0.46 MB
Время: 0.01 c
6-60286
asphix
2003-04-16 12:19
2003.06.19
Socket exception


1-60253
NeshBriges
2003-06-02 22:53
2003.06.19
Открыть файл


14-60365
KIE
2003-05-31 23:39
2003.06.19
Соединить два файла


1-60145
Alien
2003-06-06 19:04
2003.06.19
Events


11-60099
Alexander
2002-09-25 16:06
2003.06.19
Эквивалентны ли функции StrIComp из StrUtils и StrComp из KOL?





Afrikaans Albanian Arabic Armenian Azerbaijani Basque Belarusian Bulgarian Catalan Chinese (Simplified) Chinese (Traditional) Croatian Czech Danish Dutch English Estonian Filipino Finnish French
Galician Georgian German Greek Haitian Creole Hebrew Hindi Hungarian Icelandic Indonesian Irish Italian Japanese Korean Latvian Lithuanian Macedonian Malay Maltese Norwegian
Persian Polish Portuguese Romanian Russian Serbian Slovak Slovenian Spanish Swahili Swedish Thai Turkish Ukrainian Urdu Vietnamese Welsh Yiddish Bengali Bosnian
Cebuano Esperanto Gujarati Hausa Hmong Igbo Javanese Kannada Khmer Lao Latin Maori Marathi Mongolian Nepali Punjabi Somali Tamil Telugu Yoruba
Zulu
Английский Французский Немецкий Итальянский Португальский Русский Испанский