Сейчас пользуюсь
Код: Выделить всё
MainWindow.Toolbar.hide;
MainWindow.Toolbar.Show;
Для нужных форм. Или например в дизайнере указывать, для таких-то форм скрывать, для таких-то отображать.
PS. Простите если повторяюсь.
Код: Выделить всё
MainWindow.Toolbar.hide;
MainWindow.Toolbar.Show;
Код: Выделить всё
procedure ToolBArHide(Sender: TObject) ;
begin
if MainWindow.Toolbar.visible = true then
MainWindow.Toolbar.Hide
else
MainWindow.Toolbar.Show;
end;
procedure Form_Create;
begin
MainWindow.Toolbar.Hide;
dxLabel15.OnClick:=@ToolBArHide;
end;
Код: Выделить всё
procedure ToolBArHide(Sender: TObject) ;
begin
MainWindow.Toolbar.visible = ( not MainWindow.Toolbar.visible);
end;
SirWolf писал(а):там тлоько:=
вместо=