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

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

Подскажите

Res ©   (2007-12-07 20:04:00) 

Здравствуйте! При запуске открывается 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;

---

THandl   (2007-12-07 20:40:00) [1]

Application.showmainform := false;?

---

Катунов Юрий   (2007-12-07 20:23:00) [2]

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

---

Res   (2007-12-07 20:19:00) [3]

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

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

---

Res   (2007-12-07 20:18:00) [4]

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;

---

Катунов Юрий   (2007-12-07 20:14:00) [5]

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

---

engine   (2007-12-07 20:11:00) [6]

> [2] Res   (07.12.07 20:10)

Application.ShowMainForm ?

---

Res   (2007-12-07 20:10:00) [7]

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

---

Катунов Юрий   (2007-12-07 20:08:00) [8]

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

---

Наверх