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

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

← →
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("&#194;&#237;&#232;&#236;&#224;&#237;&#232;&#229;", "&#194;&#226;&#229;&#228;&#232;&#242;&#229; &#234;&#238;&#228;:", 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

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

---

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

Дык переведи попробуй слово с английского 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;?

---

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

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



Память: 0.46 MB
Время: 0.007 c