mirror of
https://gitlab.com/freepascal.org/fpc/source.git
synced 2025-04-06 00:47:52 +02:00
TCustomConnection.DoCloseError virtual
This commit is contained in:
parent
e1715d6d1a
commit
cd909ec2bc
@ -2237,7 +2237,7 @@ type
|
||||
procedure SetBeforeConnect(const AValue: TNotifyEvent);
|
||||
procedure SetBeforeDisconnect(const AValue: TNotifyEvent);
|
||||
protected
|
||||
Procedure DoCloseError(aError : Exception);
|
||||
Procedure DoCloseError(aError : Exception); virtual;
|
||||
procedure SetForcedClose(AValue: Boolean); virtual;
|
||||
procedure CloseForDestroy;
|
||||
procedure DoLoginPrompt; virtual;
|
||||
|
Loading…
Reference in New Issue
Block a user