Largura Padrão do Menu Lateral
Enviado: Maio 11th, 2013, 3:42 am
Gostaria de Almentar a Largura Padrão do Menu Lateral
Pois sempre tenho que expandir ao iniciar o aplicativo.
Pois sempre tenho que expandir ao iniciar o aplicativo.
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;