[delphi lame:)] MDI - child - jak otworzyc formatke?

	B O A R D
	» Board » Zadaj pytanie » Archiwum » Szukaj » Stylizacja

M E N U

» Nowości

» Archiwum

» Recenzje / Testy

» Board

» Rejestracja

Szukaj @ TwojePC

	OBECNI NA TPC
	» DJopek 12:59 » Fl@sh 12:54 » rrafaell 12:52 » NimnuL 12:52 » SebaSTS 12:49 » Sherif 12:47 » bajbusek 12:44 » XepeR 12:43 » ngP 12:40 » @GUTEK@ 12:40 » RoBakk 12:39 » rkowalcz 12:27 » hokr 12:15 » Wolf 12:15 » Artaa 12:03 » waski 12:01 » ligand17 11:58 » luckyluc 11:50 » LooKAS 11:50 » Kool@ 11:48 Dzisiaj przeczytano 41104 postów, wczoraj 25974 Szybkie ładowanie jest: włączone.

ccc

A R C H I W A L N A W I A D O M O Ś Ć

[delphi lame:)] MDI - child - jak otworzyc formatke? , majek 4/01/06 22:03
Zaczyanm zabawe z delphi i nie moge dojsc jak otwierac nowe formatki. Co wpisac pomiedzy begin a end; zeby otworzyla mi sie jakas zewnatrzna formatka

procedure TMainForm.Dodaj1Execute(Sender: TObject);
begin
CreateMDIChild(i tu co?:))
end;

Teoretcyznie w procedurze tworzenia dziecka jest:

Child := TMDIChild.Create(Application);
Child.Caption := Name;
if FileExists(Name) then Child.Memo1.Lines.LoadFromFile(Name);
i mam formatke add_klient w katalogu z projektem - jak ja uruchomic?

... ale jak to?!

Coś kręcicie towarzyszu, kręcicie. , JOTEM 5/01/06 00:21
Formatka ma nazwę add_klient? Taka nazwa sugeruje formatkę dodającą klienta (raczej okno modalne), a nie wyświetlającą jego dane (to może być MDIChild). Jeśli ona wyswietla dane, to zmień nazwę bo ta wprowadza w błąd.
Jeśli to tylko sprawa niefortunnej nazwy to wystarczy (TYLKO!):

add_klient.Create(nazwa_okna_matki);

żeby utworzyło się (i od razu pokazało) nowe okno MDI. Oczywiście formatka add-klient musi mieć ustawiony atrybut MDIChild, a forma matka - MDIForm. Pozostały kod inicjalizuje dane okna MDI i jest śćiśle zależny od kodu add_klient. Bez jego znajomości nic więcej się nie da powiedzieć.
Poryjemy..zrobaczymy
no napisalem ze lame:) , majek 5/01/06 00:53
procedure TMainForm.Dodaj1Execute(Sender: TObject);
begin
Tadd_klient.Create(self);
end;

i zmiana formatki na MDIChild pomogla:) i jeszcze w ust. projektu trzeba wylaczyc automatyczne wlaczanie formatek i smiga:) - tyko nie wiem dlaczego jak klikam na form "child" zeby zamknac - one sie tylko minimalizuja?

... ale jak to?!
1. To ich domyślne zachowanie , JOTEM 5/01/06 01:01
  Z założenia MDIChild jak długo istnieje tak długo jest widoczne.
  W OnCreate ustaw Action na caFree, to będą się niszczyć przy próbie zamknięcia - to najzdrowsze rozwiązanie.
  Poryjemy..zrobaczymy
  1. w delphi help z caFree , majek 5/01/06 10:58
    znalazlem akcje na zamkniecie:
    
    if MessageDlg('Czy napewno chcesz zamknąć to okno?', mtConfirmation,
    [mbYes, mbNo], 0) = mrYes then
    Action := caFree
    else
    Action := caNone;
    
    o to mi chodzilo:) Dzieki za pomoc
    
    ... ale jak to?!
    1. Jasne , JOTEM 5/01/06 11:48
      chodziło mi o OnDestroy, ale godzina już była nie ta i powieki mi opadały. :-)
      Poryjemy..zrobaczymy
      1. Jasne , JOTEM 5/01/06 11:51
        bleeee - OnClose
        Poryjemy..zrobaczymy