Главная страница
    Top.Mail.Ru    Яндекс.Метрика
Текущий архив: 2004.10.24;
Скачать: CL | DM;

Вниз

Приостановка выполнения процедуры   Найти похожие ветки 

 
kolos_rus   (2004-10-05 16:45) [0]

Чтото совсем не могу сообразить как сделать:
 выполняется процедура TForm1.Button3Click(Sender: TObject)
 необходимо в определенном месте сделать выбор из comboboxa и продолжить выполнение процедуры.


 
Amoeba ©   (2004-10-05 16:48) [1]

Орех!


 
Digitman ©   (2004-10-05 16:52) [2]


> kolos_rus   (05.10.04 16:45)  


поясни свою глубокую мысль
иначе на самом деле орехом пахнет


 
Алхимик ©   (2004-10-05 17:00) [3]

procedure TForm1.Button3Click(Sender: TObject);
begin
<ляля тополя>
Forma_S_ComboBoxom_dlya_vibora.ShowModal;
// В этом определённом месте показываешь модальную форму,
// в которой выбираешь значения из ComboBox"a.
<продолжение про ляля тополя>
end;


 
kolos_rus   (2004-10-05 17:06) [4]

Все так, только нельзя ли обойтись без модальной формы?


 
Алхимик ©   (2004-10-05 17:07) [5]


> [4] kolos_rus   (05.10.04 17:06)
> Все так, только нельзя ли обойтись без модальной формы?


Опиши ка задачу подробнее, а то чувствуется запах ореховой настойки.


 
Anatoly Podgoretsky ©   (2004-10-05 17:08) [6]

Тебе такое задание дали или ты сам решил?


 
kolos_rus   (2004-10-05 17:20) [7]

Дело в том, что комбик наполняется в этой процедуре, и то что выберут необходимо использовать в этой же процедуре.


 
begin...end ©   (2004-10-05 17:21) [8]

Для этого необязательно останавливаться в этой же процедуре.


 
Sandman25 ©   (2004-10-05 17:24) [9]

[7] kolos_rus   (05.10.04 17:20)

Тогда только модальная форма


 
ASoft   (2004-10-05 17:31) [10]

А "Repeat...until" или "while" в процессе выполнения процедуры не подойдет?


 
ЮЮ ©   (2004-10-06 03:51) [11]

Если так уж принципиально делать все в одной кнопке, то проверяй, выбран ли пункт в комбо, если нет, то заполни комбик и выходи. Т.е. пользователь первый раз нажмет кнопку - заполнится комбик, бывкрет значение, нажмет второй раз - сработает остальной код

З.Ы. Заполни комбик до нажатия кнопки


 
Amoeba ©   (2004-10-06 11:31) [12]


> ASoft   (05.10.04 17:31) [10]

А что в таком случае будет условием завершения цикла?


 
begin...end ©   (2004-10-06 11:40) [13]


> [12] Amoeba ©   (06.10.04 11:31)

KeyPressed :-)


 
Amoeba ©   (2004-10-06 11:55) [14]


> begin...end ©   (06.10.04 11:40) [13]

KeyPressed в Delphi??? Это было в TP, но в D уже нет.


 
begin...end ©   (2004-10-06 11:56) [15]


> [14] Amoeba ©   (06.10.04 11:55)

Я в курсе :-)


 
ASoft   (2004-10-12 03:04) [16]

>А что в таком случае будет условием завершения цикла?[12]
Юзер выбрал что-то из комбо, например...Переменная изменилась и т.п.


 
Defunct ©   (2004-10-12 05:35) [17]

> Все так, только нельзя ли обойтись без модальной формы?

Можно:

Halt(0);


 
Fay ©   (2004-10-12 05:52) [18]

У вас тут весело, как я погляжу!
На орех, конечно, не потянет, но приятно было почитать.
Спасибо 8)


 
KSergey ©   (2004-10-12 07:59) [19]

Автору: у вас превратные представления о пользовательском интерфейсе и событийном программировании. Разносите свою процедуру на 2: 1-я часть заполняет (и выход!), вторая срабатывает после выбора пользователем. И никак иначе!



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

Текущий архив: 2004.10.24;
Скачать: CL | DM;

Наверх




Память: 0.48 MB
Время: 0.041 c
4-1095503824
Ivolg
2004-09-18 14:37
2004.10.24
Мышка


3-1096448284
Serrrrg
2004-09-29 12:58
2004.10.24
Ошибка записи.


14-1096872023
WondeRu
2004-10-04 10:40
2004.10.24
Администрирование NT: Скрытые расшаренные диски


3-1095917409
Настенька
2004-09-23 09:30
2004.10.24
сложный поиск


3-1095938546
Nick-From
2004-09-23 15:22
2004.10.24
TDBComboBox не дает выбирать значения





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