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

Вниз

Как задать ModalResult?   Найти похожие ветки 

 
wezzz   (2006-02-20 15:59) [0]

На форме есть кнопка. Для неё ModalResult = mrOk. Как програмно симитировать нажатие на неё? Т.е. чтобы форма закрывалась и возвращался ModalResult = 1?
Пробовал делать Button1Click(Form1) и Form1.ModalResult := mrOk -- эффект не тот :(


 
MegaVolt ©   (2006-02-20 16:07) [1]

А чем неустроил результат?


 
wezzz   (2006-02-20 16:08) [2]

не закрывается форма


 
RO   (2006-02-20 16:09) [3]


> Form1.ModalResult := mrOk -- эффект не тот


И какой же ?


 
tytus   (2006-02-20 16:10) [4]

>wezzz
 Form1.ModalResult:=100;// и форма закроется.
показ формы:
 if Form1.ModalResult=1//форма уже будет видна , если конечно до этого она была создана: Form1:=TForm1.Create(Application).


 
tytus   (2006-02-20 16:12) [5]

[4]
Ошибочка-правильно так
 if Form1.ShowModal=mrOK


 
RO   (2006-02-20 16:12) [6]


> не закрывается форма


Значит она не модальная


 
wezzz   (2006-02-20 16:16) [7]

Form1.ModalResult := mrOk;
Access violation


 
RO   (2006-02-20 16:20) [8]


> Access violation


Значит переменная Form1 содержит либо мусор либо nil.


 
tytus   (2006-02-20 16:31) [9]

[7]
Form1:=TForm1.Create(Application);
try
 Form1.ShowModal;// if Form1.ModalResult=mrOK - то же самое
...
finally
 Form1.Close;//Form1.ModalResult:=100;
 FreeAndNil(Form1);
end;
Если на кнопке ModalResult=mrOK то щелчком по ней МОДАЛЬНАЯ форма закроется, и никакого обработчика для кнопки писать не надо!


 
Mikhail V ©   (2006-02-20 17:00) [10]


> wezzz   (20.02.06 16:16) [7]
> Form1.ModalResult := mrOk;

Сие часом не в реализации TForm1?


 
Плохиш ©   (2006-02-20 17:12) [11]


> wezzz   (20.02.06 15:59)  
> На форме есть кнопка. Для неё ModalResult = mrOk. Как програмно
> симитировать нажатие на неё?

Button1.Click;

PS. Ту галиматью, что написана в последующих двух строчках, Вы уж извините, я не понял.


 
Kray ©   (2006-02-20 17:26) [12]

Можно просто в любой процедуре модальной формы написать
ModalResult := mrOk;
и все форма закроется.



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

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

Наверх




Память: 0.46 MB
Время: 0.04 c
2-1141894040
nap<>
2006-03-09 11:47
2006.03.26
Minimize


2-1141805249
Nox321
2006-03-08 11:07
2006.03.26
Написал скачивалку страниц. Но при ошибке 404 - смерть


15-1140894177
Nic
2006-02-25 22:02
2006.03.26
Лица форума


3-1138797778
Громозека
2006-02-01 15:42
2006.03.26
Компоненты ZEOS для доступа к MySQL


2-1141937403
redlord
2006-03-09 23:50
2006.03.26
Аттрибуты файла





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