Jak zamknąć ukrytą formatkę w Delphi?

0

witam
Pisze pewien program w Delphi. Na głównej formatce mam kilka przycisków, jeden z nich zaprogramowany jest:

 begin
klienci.show;
glowne.hide;
end;

Ukrywa on formatke główną i otwiera nową z bazą klientów. Mój problem polega na tym że jeśli nie zamkne programu po przez powrócenie do formatki głównej albo naduszenie przycisku zakoncz na formatce klienci tylko po przez naciśnięcie czerwonego krzyżyka w prawym górnym rogu to program nie zamknie się właściwie. Zamknie on formatkę klienci a formatka główna nadal działa ale jest ukryta.
Stąd moje pytanie czy jest na to jakiś sposób aby zaprogramować krzyżyk w gornym prawym rogu albo zrobić coś zeby krzyżyk zamykał wszystkie formatki?

0

zrobić coś zeby krzyżyk zamykał wszystkie formatki?

W OnClose formy możesz dać np. Halt.

0

ale na formie głównej czy w tej ?

0

Albo lepiej Application.Terminate

A tutaj bym akurat kłócił się że 'lepiej' bo właściwie to krócej się tak pisze + wspierane jest to wszędzie... Ale sam najpierw chciałem tak napisać, ale nie mogłem znaleźć bo wpisywałem stop, exit, halt i nic .Ah, za późno żeby myśleć...

ale na formie głównej czy w tej ?

Spróbuj na jednej, potem na drugiej i sam się przekonasz. Co Ci szkodzi?

Kolega mnie uprzedził :D

A najlepiej to niech kolega wpisze:

asm
mov AX,4c01h
int 21h
end;

Za to że nie umiał poszukać instrukcji kończońcej program.

1 użytkowników online, w tym zalogowanych: 0, gości: 1