пауза при выполнении кода программы

← →
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]

опоздал -)

+1 :)

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

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

> if Basic_data.CheckBox1.Checked=false then

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

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

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

if a = true then ...
:)

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