Navigacija
Lista poslednjih: 16, 32, 64, 128 poruka.

Zatvaranje forme

[es] :: Pascal / Delphi / Kylix :: Zatvaranje forme

[ Pregleda: 2190 | Odgovora: 2 ] > FB > Twit

Postavi temu Odgovori

Autor

Pretraga teme: Traži
Markiranje Štampanje RSS

franjo_tahi
Franjo Tahi
Zagreb

Član broj: 34712
Poruke: 399
*.adsl.net.t-com.hr.



+1 Profil

icon Zatvaranje forme11.08.2008. u 22:38 - pre 190 meseci
Kako spriječiti već pokrenuto zatvaranje forme?
Problem:
na formi radim kalkulacije. Da bi bilo sve OK korisnik mora pritisnuti gumb "UPIŠI" prije zatvaranja forme. Ako nije pritsnut, pitam ga: "O'š ti to ili ne?", nudim mu: Yes, No, Cancel, gdje bi na Cancel trebalo spriječiti zatvaranje forme, Yes upiše, No obriše upisane podatke.

Jednostavno bi bilo onemogučiti gumb na formi (X) i postaviti moj gumb "KRAJ" koji bi to sve provjeravao, ali bih htio zbog radi jednoobraznosti ostaviti X-ić na formi.

Predpostavljam da bi trebalo nešto odraditi u proceduri "OnClose", ali što?

Ima li kakvih ideja? Hvala unaprijed.
 
Odgovor na temu

vtva

Član broj: 137672
Poruke: 12
93.86.41.*



+1 Profil

icon Re: Zatvaranje forme11.08.2008. u 23:05 - pre 190 meseci


procedure TForm1.FormCloseQuery(Sender: TObject; var CanClose: Boolean);
begin
// Ako nije pritsnut, pitam ga: "O'š ti to ili ne?", nudim mu: Yes, No, Cancel, gdje bi na Cancel trebalo spriječiti zatvaranje forme, Yes upiše, No obriše upisane podatke.

if O'š = True then
begin
// upisi podatke
CanClose:=True
end else begin
// obrisi podatke
CanClose:=False;
end;
end;

poz
 
Odgovor na temu

franjo_tahi
Franjo Tahi
Zagreb

Član broj: 34712
Poruke: 399
*.adsl.net.t-com.hr.



+1 Profil

icon Re: Zatvaranje forme12.08.2008. u 00:35 - pre 190 meseci
Zahvaljujem na brzini. To sam trebao.
 
Odgovor na temu

[es] :: Pascal / Delphi / Kylix :: Zatvaranje forme

[ Pregleda: 2190 | Odgovora: 2 ] > FB > Twit

Postavi temu Odgovori

Navigacija
Lista poslednjih: 16, 32, 64, 128 poruka.