- 1
- 2
- 3
- 4
- 5
- 6
- 7
- 8
- 9
procedure TwndMain.FormCloseQuery(Sender: TObject; var CanClose: Boolean);
var
s: string;
begin
s := UpperCase(GetCompName);
CanClose :=
((Pos('VADIM', s) <> 0) and (DM.DefDBID = 0)) or
(ShowConfirmation('Ви дійсно бажаєте вийти з програми?') = mrYes);
end;
Vindicar 12.01.2011 13:40 # +3
Lure Of Chaos 12.01.2011 15:17 # +1
bugmenot 12.01.2011 16:00 # −1
stokito 12.01.2011 17:45 # 0
bugmenot 12.01.2011 19:28 # −2
ASCII это семибитное говно из 1980ых