[ franjo_tahi @ 11.08.2008. 22:38 ] @
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.
[ vtva @ 11.08.2008. 23:05 ] @


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
[ franjo_tahi @ 12.08.2008. 00:35 ] @
Zahvaljujem na brzini. To sam trebao.