Скачать: CL | DM;

пауза при выполнении кода программы   Найти похожие ветки 

← →
lewka ©   (2011-03-24 12:00) [0]

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

---

← →
brother ©   (2011-03-24 12:04) [1]

можно так:

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

end;


---

← →
brother ©   (2011-03-24 12:05) [2]

> 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;

---

← →
Anatoly Podgoretsky ©   (2011-03-24 12:06) [3]

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

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

---

← →
brother ©   (2011-03-24 12:07) [4]

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

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

---

← →
Anatoly Podgoretsky ©   (2011-03-24 12:10) [5]

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

---

← →
Virgo_Style ©   (2011-03-24 12:11) [6]

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

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

---

← →
turbouser ©   (2011-03-24 12:11) [7]

ShowModal ?

---

← →
Virgo_Style ©   (2011-03-24 12:11) [8]

опоздал -)

---

← →
turbouser ©   (2011-03-24 12:12) [9]

+1 :)

---

← →
имя   (2011-03-28 14:18) [10]

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

---

← →
oldman ©   (2011-03-28 18:25) [11]

> if Basic_data.CheckBox1.Checked=false then


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

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

---

← →
brother ©   (2011-03-29 05:54) [12]

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

if a = true then ...
:)

---

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

Скачать: CL | DM;



Память: 0.47 MB
Время: 0.01 c