Mitä kaikkea tuo Form:n Close tekee
(Toki tiedän että sulkee kyseisen ikkunan)?
Form Close
kysymys kysymys
3
259
Vastaukset
- 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
Suureksi onneksesi on myönnettävä
Että olen nyt sitten mennyt rakastumaan sinuun. Ei tässä mitään, olen kärsivällinen ❤️651453Perusmuotoiset TV-lähetykset loppu
Nyt sanoo useiden HD-muotoistenkin kanavien kohdalla äly-TV, ettei kanava ole käytössä, haluatko poistaa sen? Kanavia110900- 58751
YLE Äänekosken kaupunginjohtaja saa ankaraa arvostelua
Kaupungin johtaja saa ankaraa kritiikkiä äkkiväärästä henkilöstöjohtamisestaan. Uusin häirintäilmoitus päivätty 15 kesä47734- 57720
Missä kaikessa olet erilainen
Kuin kaivattusi? Voin itse aloittaa: en ole vegaani kuten hän. Enkä harrasta tietokonepelejä lainkaan.39697Hyvin. Ikävää nainen,
Että vainoat ja stalkkaat miestäni.onko tarkoituksesi ehkä saada meidät eroamaan?no,siinä et tule onnistumaan71671Linnasuolla poliisi operaatio
Kamalaa menoa taas meidän ihanassa kaupungissa. https://www.uutisvuoksi.fi/paikalliset/864606026669Katsoin mies itseäni rehellisesti peiliin
Ja pakko on myöntää, että rupsahtanut olen 😆. Niin se ikä saavuttaa meidät kaikki.41657Uskomaton tekninen vaaliliitto poimii rusinoita pullasta
Korni näytösesitelmä menossa kaupunginvaltuustossa. Juhlia ei ole kokouksista tiedossa muilla, kuin monipuolue paikalli67650