Mega Code Archive
How to prevent closing of an undocked toolbar
<![CDATA[
Question:
How do I prevent a user from closing (hiding) an undocked ToolBar?
Answer:
Here's one possible solution. You have to create your own TToolDockForm descendant, and in it you want to
make sure that the border icon is gone as well as preventing Alt+F4.
type
TMyToolDockForm = class(TToolDockForm)
constructor Create(AOwner: TComponent); override;
procedure DoClose(var Action: TCloseAction); override;
end;
constructor TMyToolDockForm.Create(AOwner: TComponent);
begin
inherited Create(AOwner);
BorderIcons := [];
end;
procedure TMyToolDockForm.DoClose(var Action: TCloseAction);
begin
Action := caNone;
end;
procedure TForm1.FormCreate(Sender: TObject);
var
i : Integer;
begin
for i:=0 to ComponentCount-1 do
if Components[i] is TToolBar then
TToolBar(Components[i]).FloatingDockSiteClass := TMyToolDockForm;
end;
]]>