Form Close

kysymys kysymys

Mitä kaikkea tuo Form:n Close tekee
(Toki tiedän että sulkee kyseisen ikkunan)?

3

266

    Vastaukset

    Anonyymi (Kirjaudu / Rekisteröidy)
    5000
    • Mika0800

      F1 peliin!

      Delphissä on hyvä online -ohjejärjestelmä, käytä sitä!

      1. Form.Close; sulkee ikkunan, halutessasi voit laatia OnClose -käsittelijän, jossa valitset, miten suljetaan:

      caFree, caHide (closeaction)

      jos ohjelman main form suljetaan, päättyy ohjelma.

      • jjjjjjjjjjjjjjj

        Jotain vinkkiä



        Type

        TFormLuokka = class (TForm)
        Button1: TButton;
        procedure FormClose(Sender: TObject; var CloseAction: TCloseAction);
        procedure FormCreate(Sender: TObject);
        private
        { private declarations }
        public
        { public declarations }
        end;


        { TForm1 }

        TForm1 = class(TForm)
        Button1: TButton;
        procedure Button1Click(Sender: TObject);
        ...


        procedure TForm1.Button1Click(Sender: TObject);
        var f:TFormLuokka;
        begin
        f := TFormLuokka.Create (Application);
        f.show;
        end;

        procedure TFormLuokka.FormClose(Sender: TObject; var CloseAction: TCloseAction);
        begin
        inherited;
        CloseAction := caFree;
        end


    • TCloseAction

      caHide = vain piilottaa . Ei vapauduta resursseja (muistia). Resurssien vapaudutus myöhemmin.
      caFree = vapauttaa resurssit.

    Ketjusta on poistettu 0 sääntöjenvastaista viestiä.

    Luetuimmat keskustelut

    1. Yksi viesti häneltä ja ottaisin takaisin

      Mutta ei sitä tule. Ja ehkä parempi niin, tein jo valintani. En saanut häneltä tarpeeksi, kaikki muu meni minun edelle j
      Ikävä
      60
      3241
    2. Sä olet epävakaa

      tai ainakin yrität onnistuneesti vaikuttaa siltä. Ei sun kanssa uskalla ruveta yhtään mihinkään, menis hommat ojasta all
      Ikävä
      49
      2364
    3. Mieti miten paljon yritin

      Löytää yhteyttä kanssasi uudelleen sen väärinymmärryksen jälkeen. Koen etten tullut puoleltasi hyvin kohdelluksi mies😔
      Ikävä
      61
      2024
    4. Keskisarjan puheet

      Onko kansanedustajan sopivaa puhua tuollai vai pitäisikkö potkia pois eduskunnasta?
      Suomussalmi
      359
      1657
    5. Kaikki on hyvin rakkaani

      Ja tulee olemaan.
      Ikävä
      79
      1355
    6. En enää uskalla laittaa sulle viestiä

      Naiselta miehelle ****
      Ikävä
      64
      1316
    7. Sovitaanko ja halataanko?

      Pyydetään toisiltamme anteeksi...❤️
      Ikävä
      70
      1187
    8. En ikinä koskaan

      En tule ikinä hyväksymään!
      Tunteet
      68
      1080
    9. Olen selvästi rikki

      Narsistiset ihmiset jotenkin koukuttaa minut.
      Ikävä
      28
      1015
    10. Kai jaksat vielä?

      Olisi sääli jos et…
      Ikävä
      79
      1006
    Aihe