Главная страница
    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.45 MB
Время: 0.008 c
4-60477
Sodom
2003-04-18 11:42
2003.06.19
Создание контекстного меню.


1-60185
Maxim Pshevlotsky
2003-06-05 09:09
2003.06.19
Выгрузка ActiveX Library


4-60457
tytus
2003-04-19 18:32
2003.06.19
Цвет заголовка формы


6-60310
vi7777
2003-04-12 14:50
2003.06.19
Как очистить память после WebBrowser


1-60224
killer
2003-06-04 17:27
2003.06.19
как сделать справой стороны TMainMenu картинку?





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
Английский Французский Немецкий Итальянский Португальский Русский Испанский