элементарная процедура закрытия формы.
Работает на дельфях, не работает на лазаре.
Ругается на caNone.
- Код: Выделить всё
procedure TForm1.FormClose(Sender: TObject; var CloseAction: TCloseAction);
begin
if чтото не так then
begin
CloseAction:=caNone
else
CloseAction:=caFree;
end;
Егор вылезает такой:
- Код: Выделить всё
Error: Incompatible types: got "TCommitRollbackAction" expected "TCloseAction"
При этом caNone ссылается куда-то в sqldb.pp.
Как его направить на истинный путь?
)