type
TForm1 = class(TForm)
PanelCloseBitBtn: TBitBtn;
Panel1: TPanel;
procedure PanelCloseBitBtnMouseDown(Sender: TObject; Button: TMouseButton;
Shift: TShiftState; X, Y: Integer);
procedure FormCloseQuery(Sender: TObject; var CanClose: boolean);
private
PanelClosed: Boolean;
end;
var
Form1: TForm1;
implementation
procedure TForm1.PanelCloseBitBtnMouseDown(Sender: TObject; Button: TMouseButton;
Shift: TShiftState; X, Y: Integer);
begin
if Sender is TBitBtn then begin
PanelCloseBitBtn.Enabled:=False;
PanelClosed:=True;
Panel1.Visible:=False;
end;
end;
procedure TForm1.FormCloseQuery(Sender: TObject; var CanClose: boolean);
begin
CanClose:=not PanelCloseBitBtn.Enabled or not PanelClosed;
PanelClosed:=False;
end;