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

Вниз

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

 
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;
Скачать: [xml.tar.bz2];

Наверх





Память: 0.48 MB
Время: 0.036 c
1-1097568975
Одиг
2004-10-12 12:16
2004.10.24
TSpeedButton и как к нему приделать drag&amp;drop


3-1096103454
Новенький
2004-09-25 13:10
2004.10.24
Вопрос по Rave Report


3-1095924545
Ш-К
2004-09-23 11:29
2004.10.24
EventAlerter в MSSQL (как в IB)


1-1097069732
sharkOFF
2004-10-06 17:35
2004.10.24
Как правильно обновлять dbgrid?


14-1096645317
Amonimus
2004-10-01 19:41
2004.10.24
Помогите с IE





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