Caso não consiga editar o Style usando o BitmapStyleDesigner
, existe uma forma (Arranjo Técnico) de fazer.
Você deve adicionar um TPanel
com Height
de +/- 32 (fica a seu critério) com Align = alTop
.
Nesse Panel você vai adicionar os botões que deseja (Recomendo TSpeedButton) com Align = alRight
, colocando os botões sempre arranjados no Right se ocultar algum ou redimensionar a janela eles vão automaticamente se alinha, semelhante aos originais.
Agora defina o BordeStyle
do Formulário como bsNone
.
Para o botão fechar use o Close
Para o Botão Minimizar use o Application.Minimize
Para o Restaura/Minimizar:
if (Nome_Form.WindowState = wsMaximized) then
begin
Nome_Form.WindowState := wsNormal;
{altere a imagem do botão aqui para a que desejar}
end
else
begin
Nome_Form.WindowState := wsMaximized;
{altere a imagem do botão aqui para a que desejar}
end;
Agora basta adicionar os botões adicionais que você deseja,
Trabalhoso, mas se for a última opção você notara que o resultado é TOP.
Edit 01: Movendo o Formulário:
No Evento OnMouseDown do Panel (que agora é sua barra de Título):
begin
if (Button = mbLeft) then
begin
ReleaseCapture;
Perform(WM_SYSCOMMAND,$F012,0);
end;
Edit 02: Redimensionando o Formulário:
Declare no Private: procedure WMNCHitTest(var Msg: TWMNCHitTest); message WM_NCHITTEST;
procedure Nome_Form.WMNCHitTest(var Msg: TWMNCHitTest);
var
ScreenPt: TPoint;
begin
//inherited;
ScreenPt := ScreenToClient(Point(Msg.Xpos, Msg.Ypos));
if (ScreenPt.x < 5) then
Msg.Result := HTLEFT
// top side
else if (ScreenPt.y < 5) then
Msg.Result := HTTOP
// right side
else if (ScreenPt.x >= Width - 5) then
Msg.Result := HTRIGHT
// bottom side
else if (ScreenPt.y >= Height - 5) then
Msg.Result := HTBOTTOM
// top left corner
else if (ScreenPt.x < 5) and (ScreenPt.y < 5) then
Msg.Result := HTTOPLEFT
// bottom left corner
else if (ScreenPt.x < 5) and (ScreenPt.y >= Height - 5) then
Msg.Result := HTBOTTOMLEFT
// top right corner
else if (ScreenPt.x >= Width - 5) and (ScreenPt.y < 5) then
Msg.Result := HTTOPRIGHT
// bottom right corner
else if (ScreenPt.x >= Width - 5) and (ScreenPt.y >= Height - 5) then
Msg.Result := HTBOTTOMRIGHT
end;
Obs: A Declaração do procedimento que redimensiona deve ser assim mesmo, diferente do corpo do procedimento, funciona como se estivesse enviando um SendMessage
para a Api do Windows!
Dessa forma ate o Cursor do Mouse vai mudar de forma ao se aproximar da borda do formulário!
Edit 03: Container Novo
Agora como o Formulário não possui borda, precisamos criar um novo Container para os componentes que precisam ser alinhados usando o por exemplo o alCliente, alLeft etc...
No OnResize
do Formulário:
Panel_Principal.Left := 5;
Panel_Principal.Top := 5; {observar o outro panel que é a barra de Título}
Panel_Principal.Width := Nome_Form.Width - 10;
Panel_Principal.Height := Nome_Form.Height - 10;
Dessa forma o Panel_Principal e o Formulário criara o efeito da borda.
Importante: Para não ter essa trabalheira toda em todos os forms, você deve usar este como um Modelo e os demais usar como Herança. Porém, para cada novo form no OnResize
você devera programar novamente o mesmo OnResize
.
Glyph
.