Форум: "Начинающим";
Текущий архив: 2008.01.06;
Скачать: [xml.tar.bz2];
ВнизПодскажите Найти похожие ветки
← →
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
Ошибку выдает
← →
Катунов Юрий © (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 вся ветка
Форум: "Начинающим";
Текущий архив: 2008.01.06;
Скачать: [xml.tar.bz2];
Память: 0.46 MB
Время: 0.005 c