Подскажите

← →
Res (2007-12-07 20:04) [0]

Здравствуйте! При запуске открывается Form2
Задача если код правильный показать form1 и скрыть form2
If inputQuery("Âíèìàíèå", "Ââåäèòå êîä:", kod) then
begin
If floattostr(h)<>kod then
begin
form2.Close;
end
else
begin
form1.Show;
end;
end
else
begin
form2.Close;
end;

← →
Катунов Юрий © (2007-12-07 20:08) [1]

Может быть так заработает:
if kod = "правильный" then begin form1.show; form2.close; end else begin // так как надо!!! end;

← →
Res (2007-12-07 20:10) [2]

Form2 главная форма, ее как нибудь скрыть можно?

← →
engine © (2007-12-07 20:11) [3]

> [2] Res (07.12.07 20:10)

Application.ShowMainForm ?

← →
Катунов Юрий © (2007-12-07 20:14) [4]

Можно так Form2.Visible :=false, а когда надо показать делать Form2.Visible :=true

← →
Res (2007-12-07 20:18) [5]

Application.ShowMainForm непомогло, все равно показывается
var
kod,a,t:string;
i,x:integer;
h:double;
begin
a:=неважно
x:=0;
for i:=1 to length(a) do
begin
x:=x+ord(a[i]);
end;
h:=x;
If inputQuery("Âíèìàíèå", "Ââåäèòå êîä:", kod) then
begin
If floattostr(h)<>kod then
begin
form2.Close;
end
else
begin
form1.Show;
application.ShowMainForm:=False;
end;
end
else
begin
form2.Close;
end;
end;

← →
Res (2007-12-07 20:19) [6]

> Катунов Юрий © (07.12.07 20:14) [4]
> Можно так Form2.Visible :=false, а когда надо показать делать
> Form2.Visible :=true

Ошибку выдает

Дык переведи попробуй слово с английского Application.ShowMainForm, получается Приложение.ПоказатьГлавнуюФорму -)

Попробуй так сделать
inputQuery("Âíèìàíèå", "Ââåäèòå êîä:", kod); //У тебя будет чтото в kod if kod = "чтото правильное" then begin form1.visible :=true; form2.visible :=false; end else begin form1.visible :=false; form2.visible :=true; end;

← →
THandl (2007-12-07 20:40) [8]

Application.showmainform := false;?

Подскажите Найти похожие ветки