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

Вниз

Модальные формы   Найти похожие ветки 

 
Сатир   (2002-11-27 17:10) [0]

Есть модальная форма, на которой два поля ввода и два кнопки: ОК и Отменить.
В обработчике кнопки ОК есть такой код

procedure TEditColor.OKBtnClick(Sender: TObject);
begin
if edColorName.Text = "" then begin
ShowMessage("Enter Color Name!");
OKBtn.ModalResult:=mrCancel;
end else
if edColorFormula.Text = "" then begin
ShowMessage("Enter Color Formula!");
OKBtn.ModalResult:=mrCancel;
end else
OKBtn.ModalResult:=mrOK;
end;


вызов данной формы происходить так:
with TEditColor.Create(nil) do
try
if ShowModal = mrOk then begin
if edFromBase.Text<>"" then
ColorFormula:=edFromBase.Text+":"+edColorFormula.Text
else
ColorFormula:=edColorFormula.Text;
AddNewItem(lwColorFormulas,edColorName.Text, ColorFormula);
SaveItems;
end;
finally
Free;
end;


Вопрос: Как запретить закрытие модальной формы, если в одном из полей не введено значение?


 
McSimm   (2002-11-27 17:13) [1]

В OnCloseQuery формы
if (условие) then CanClose := False


 
Переяслов Григорий   (2002-11-27 17:14) [2]

так и написать в обработчике кнопки Ok
ModalResult := mrNone;


 
Сатир   (2002-11-27 17:40) [3]

2McSimm © (27.11.02 17:13)
это теплее. thnX

2Переяслов Григорий © (27.11.02 17:14)
Ваш ответ неверный. Форма закроется в любом случае. Смотрите в место её вызова.



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

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

Наверх





Память: 0.44 MB
Время: 0.007 c
6-28182
wer
2002-10-15 14:28
2002.12.09
ОТправка сообщения на компы


3-27801
Serg_zxcvbnm
2002-11-22 11:46
2002.12.09
синхронизация данных у пользователей


3-27852
NeyroSpace
2002-11-19 17:41
2002.12.09
Помогите! Какие-то проблемы с IBTransaction.


14-28227
Song
2002-11-17 15:58
2002.12.09
Nokia рулит! :-)


14-28245
Nico1a
2002-11-18 14:02
2002.12.09
ОГРОМНАЯ просьба ко всем, кто кроме Дельфи разбирается в химии !!





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