интересная ситуация и варианты выходов(формы DELPhI)
Вот пусть вам надо написать програмку, где после ввода каких либо величин (пусть математических) вам надо координально изменить внешний вид окна.(т.е формы).
Рассмотрим варианты:
1. Перерисовка окна (не знаю стоит ли помойму слишком сложно) или может от того что я толком не знаю как это делаеться???))))
2. Создание новой формы (на мой взгляд вполне логично) однако беда 1 форма не закрываеться!! она главная что можно сделать для обхода этого случая??
2.1 Можно ли передать второй форме статус главной а потом закрыть?
2.2 Можно ли закрыть либо скрыть по другому??
Заранее благодарен!
Рассмотрим варианты:
1. Перерисовка окна (не знаю стоит ли помойму слишком сложно) или может от того что я толком не знаю как это делаеться???))))
2. Создание новой формы (на мой взгляд вполне логично) однако беда 1 форма не закрываеться!! она главная что можно сделать для обхода этого случая??
2.1 Можно ли передать второй форме статус главной а потом закрыть?
2.2 Можно ли закрыть либо скрыть по другому??
Заранее благодарен!
2. А сделать Form1.Hide?
2.2 ShowWindow(...,SW_HIDE) либо SendMessage(..,WM_SHOWWINDOW,False,...);
блин справка английская кому не лень объясните что это св-во делает и синтаксис заранее благодарен!!
Как вариант, в первую очередь создать какую-нибудь "левую" форму.
Указать Application->ShowMainForm = false
Теперь "главная форма" никогда не будет отображена, поэтому можно открывать и закрывать любые окна
Завершить программу можно командой Application->Terminate()
Указать Application->ShowMainForm = false
Теперь "главная форма" никогда не будет отображена, поэтому можно открывать и закрывать любые окна
Завершить программу можно командой Application->Terminate()
большое спасибо разобрался правда есть еще один вопросик!!
Можно ли вставлять спец символы?? например sqrt значком??
Можно ли вставлять спец символы?? например sqrt значком??
вот еще проблема не могу после паскаля прописать процедуру
помогите в этом куске исходника разобраться!!
procedure Tstep1.btnextClick(Sender: TObject);
procedure a1(var a,b,c: real; out e,d : integer);
begin
a:=strtofloat(va.text);
b:=strtofloat(vb.text);
c:=strtofloat(vc.text);
e:=c mod b;
d:=b mod a;
end;
var aa,bb : integer;
cc,dd : real;
begin
aa:=5;
bb:=34;
cc:=aa+ab;
как теперь прописать обращение к процедуре?? помогите пожалйста!!
если надо допустим далее сделать;
aa:=cc*e/d;
a.label1.Caption :=aa;
end.
заранее спасибо!!
помогите в этом куске исходника разобраться!!
procedure Tstep1.btnextClick(Sender: TObject);
procedure a1(var a,b,c: real; out e,d : integer);
begin
a:=strtofloat(va.text);
b:=strtofloat(vb.text);
c:=strtofloat(vc.text);
e:=c mod b;
d:=b mod a;
end;
var aa,bb : integer;
cc,dd : real;
begin
aa:=5;
bb:=34;
cc:=aa+ab;
как теперь прописать обращение к процедуре?? помогите пожалйста!!
если надо допустим далее сделать;
aa:=cc*e/d;
a.label1.Caption :=aa;
end.
заранее спасибо!!
Не понял. Что ты вообще хочешь сделать?
Код:
cc:=aa+ab;
Что за переменная ab? И объясни словами что ты хочешь сделать.
Код:
function a1(a,b,c: real; e,d : integer):real;
begin
a:=strtofloat(va.text);
b:=strtofloat(vb.text);
c:=strtofloat(vc.text);
e:=c mod b;
d:=b mod a;
a1:=e/d;
end;
procedure Tstep1.btnextClick(Sender: TObject);
var aa,bb : integer;
cc,dd : real;
begin
aa:=5;
bb:=34;
cc:=aa+bb;
aa:=cc*a1(?,?,?,?,?);
a.label1.Caption :=aa;
end.
begin
a:=strtofloat(va.text);
b:=strtofloat(vb.text);
c:=strtofloat(vc.text);
e:=c mod b;
d:=b mod a;
a1:=e/d;
end;
procedure Tstep1.btnextClick(Sender: TObject);
var aa,bb : integer;
cc,dd : real;
begin
aa:=5;
bb:=34;
cc:=aa+bb;
aa:=cc*a1(?,?,?,?,?);
a.label1.Caption :=aa;
end.
P.S. ? - не знаю что за переменные будут
[color=red]Для оформления кода используй теги. Модератор. [/color]