Largura Padrão do Menu Lateral

[wkarts]

Gostaria de Almentar a Largura Padrão do Menu Lateral
Pois sempre tenho que expandir ao iniciar o aplicativo.

[Adilson]

wkarts,

Bom dia !


Ve a procedure abaixo se te ajuda .

Abra o seu formulario Princ.pas

e vá para para a procedure e mude os numerais 141 e 30 para as suas novas configurações.


Adilson


procedure TFormPrincipal.BtnMinimizaClick(Sender: TObject);
begin
if BtnMinimiza.Caption = '>' then
PnOpcoes.Width := 141
else
PnOpcoes.Width := 30;
PnOpcoesResize(Self);
end;