| Новости | Поиск | FAQ | Статьи | Книги | Новости VCL | | Форумы ЧАТ | Орешник | KOL и MCK |
Форумы -» Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG

	« предыдущая ветвь | форум | следующая ветвь »

пауза при выполнении кода программы [D7, XP]

lewka ©   (2011-03-24 12:00:00) 

Привет!!! есть код
if Basic_data.CheckBox1.Checked=false then
begin
Data_RGR2.Show;
end;
//дальше идут разные расчеты, опирающиеся на данные введенные на ТData_RGR2
Подскажите пожалуйста как сделать чтобы пограмма ждала пока не введутся данные на ТData_RGR2?

---

brother   (2011-03-29 05:54:00) [1]

Данный стиль написания говорит о новичке, им можно, пока сами не поймут...
> PS: if a:=true НЕНАВИЖУ!!!

if a = true then ...
:)

---

oldman   (2011-03-28 18:25:00) [2]

> if Basic_data.CheckBox1.Checked=false then


not отменили специальным постановлением совнаркома?

PS: if a:=true НЕНАВИЖУ!!!

---

  (2011-03-28 14:18:00) [3]

Удалено модератором

---

turbouser   (2011-03-24 12:12:00) [4]

+1 :)

---

Virgo_Style   (2011-03-24 12:11:00) [5]

Подозреваю, что "введутся" означает "будут введены пользователем", а вовсе не Visible=true.

В таком случае
if Data_RGR2.ShowModal=mrOk then разные расчеты
на DataRGR2 должна быть кнопка с соответствующим ModalResult.

---

turbouser   (2011-03-24 12:11:00) [6]

ShowModal ?

---

Virgo_Style   (2011-03-24 12:11:00) [7]

опоздал -)

---

Anatoly Podgoretsky   (2011-03-24 12:10:00) [8]

Ну тогда ему нужен ShowModal

---

brother   (2011-03-24 12:07:00) [9]

> Что такое ТData_RGR2?

имхо это форма...

---

Anatoly Podgoretsky   (2011-03-24 12:06:00) [10]

> lewka  (24.03.2011 12:00:00)  [0]

Что такое ТData_RGR2?
Кстати не забывай, что Дельфи ориентирован на событийно-управляемые режимы,
остальное чужеродное.

---

brother   (2011-03-24 12:05:00) [11]

> if Basic_data.CheckBox1.Checked=false then
> begin
> Data_RGR2.Show;
> repeat
> application.ProcessMessages;
> sleep(1);
> until Data_RGR2.Visible;
>
> end;

те

if Basic_data.CheckBox1.Checked=false then
begin
 Data_RGR2.Show;
 repeat
   application.ProcessMessages;
   sleep(1);
 until not Data_RGR2.Visible;
end;

---

brother   (2011-03-24 12:04:00) [12]

можно так:

if Basic_data.CheckBox1.Checked=false then
begin
Data_RGR2.Show;
repeat
 application.ProcessMessages;
 sleep(1);
until Data_RGR2.Visible;

end;


---

Наверх