..Един тъп въпрос

Как мога да разбера от дадена Форма кога друга форма(която се създава динами4но) е активна?

..heeeelllp (zabravil sym kak stava6e )

if Form.Active then...

чети и дишай по-леко

...qvno ne sym se izrazil qsno...

tova bi rabotilo ako za formata se zadelq pamet pri startirane na prilojenieto, no ako formata se syzdava dinami4no (toest pamet za neq se zadelq v posledstvie-po vreme na rabota na prolijenieto) i ot druga forma se pravi proverka s "if Form.Active" - Delphi hvyrlq "Access Violation".

ta Vyprosa mi be6e - kak moga da razbera 4e formata,koqto se syzdava dinami4no e syzdadena i e activna (Tyi kato pri zatvarqneto i - zadelenata za neq pamet se osvobojdava)

Направих си труда да напиша едно приложение, ето кода:

procedure TForm1.FormCreate(Sender: TObject);
var p: TForm;
begin
p:=TForm.Create (nil); // това заделя памет за формата
p.Show; // това прави формата p активна
if p.Active then ShowMessage ('p is active') else ShowMessage ('p is not active');
end;

Изтрий коментираните редове и я пусни пак. Аз лично не получих Access Violation

Редактирано от Pechenia на 21.08.03 13:34.

Благодаря приятелю ,но наистина явно не можем да се разберем

...както и да е аз си спомних как ставаха работите:

Var
ChildForm:TForm1; //globalna promenliva

//Ако на някой бутон имаш:

procedure Buttonclick......
begin
ChildForm:=TForm1.create(self);
ChildForm.Showmodal;
end;

//to

Procedure Table1.Afterscroll.....
begin
if assigned(ChildForm) then //proverqva dali formata e v pametta
.......
end;

"if assigned(ChildForm) then //proverqva dali formata e v pametta "

Има един подводен камък.
Ако после освободиш формата:

ChildForm.Free 

 if assigned... 

 if ChildForm.Active ... 

 ChildForm.Free 

 FreeAndNil(ChildForm) 

 Form.free и Form:=nil;

var FlagIsFormActive:boolean;

...

FlagIsFormActive:=false;

try FlagIsFormActive:=Form.Active except end;

{и сега вече}

if FlagIsFormActive then ...

Ми то под "активна" се разбира дали е на фокус... Както и да е, щом си се оправил...

чети и дишай по-леко

Имаш MainForm и ChildForm.
Добавяш един флаг ChildFormActive: boolean в MainForm

Slagash w OnCreate methoda na ChildForm
MainForm.ChildFormActive:=true;
Slagash w OnDestroy methoda na ChildForm
MainForm.ChildFormActive:=false;

Ако не знаеш как да хванеш динамично OnCreate i OnDestroy пиши тук...

Шашкам се вече :) Какво му е на if Assigned(форма) then .. аз лично никога не пиша обект.Free; - винаги заnilявам

-------------
Special killer double trouble triple extra nicotine monster!

Ами, на мен ми е малко мътно какво точно прави това assigned.
Пък и с флаг си е абсолютно ясно за какво става дума...
А ти що не ползваш фрии ? :)