[ sasha_rs @ 10.12.2005. 11:49 ] @
Postvaio sam formu Form1 i FormStyle postavio na MDIForm, nakon toga sam postavio i Form2 i Form3 kojima sam FormStyle postavio na MDIChild. Kada pokrenem program pokaze mi sve forme , ne mogu da ih ugasim nego samo minimiziram i postavi svoju velicinu forme. Zelio bih da form2 i form3 pokrecem kada ja hocu npr. klikom na neku stavku padajuceg menija, da budu odredjene velicine i da ih ugasim jednostavnim klikom na x. hvala
[ Relaja @ 10.12.2005. 12:26 ] @
Za dogadjaj OnClose (child forme) napises sledece :

procedure TfrmMDIExpChild.Close1Click(Sender: TObject);
begin
frmMDIExpChild.Free;
Close;
end;

Zatim ides : Project-> View Source i izbrises tamo gde pise Application.CreateForm(ime_child_forme);
i to je to.

Samo postavi neko dugme koje bi moglo ponovo da napravi child formu.
Poz.
[ sasha_rs @ 10.12.2005. 15:08 ] @
hvala puno!
[ Srki_82 @ 10.12.2005. 22:32 ] @
Nije bas pametno da se koristi Free metod u event-ima objekta koji ce se obrisati iz memorije (tako kazu u Delphi Help-u). Bas zbog toga je dodata mogucnost da se izabere akcija koja ce se izvrsiti kada se forma zatvori (pozivom Close funkcije, klikom na x u gornjem desnom cosku, duplim klikom na system menu,...). Posto zelis da se tvoja forma izbrise iz memorije onda bi to izgledalo ovako:
Code:
procedure TForm1.FormClose(Sender: TObject; var Action: TCloseAction);
begin
  Action := caFree;
end;


Vrednosti koje Action moze imati:

caNone - nista se ne desava kada korisnik hoce da zatvori formu
caHide - Visible postaje False kada korisnik hoce da zatvori formu
caFree - forma se brise iz memorije kada korisnik hoce da zatvori formu
caMinimize - forma se minimizira kada korisnik hoce da zatvori formu
[ *.Dekii @ 11.12.2005. 03:22 ] @
Drugim rechima udri ovo ...
Frm1 right ? Ok ...

U nju stavis dva dugmeta jedno dugme se zove u "caption" frm2 drugo frm3...
U dugmetu frm2 uneses code ...

Private Sub frm2_Click()
frm2.show
Me.hide "ili nemoras"
End Sub

U dugmetu frm3 uneses code ...

Private Sub frm3_Click()
frm3.show
Me.hide "ili nemoras"
End Sub


Ma bez filozofiranja ...