Кнопки на сплиттере в Delphi

Delphi , Компоненты и Классы , TSplitter

В статье мы рассмотрим, как разместить кнопки на сплиттере в Delphi и сделать так, чтобы они перемещались вместе с ним.

Введение

Сплиттер (splitter) — это controls, который позволяет пользователю разделять форму на две или более частей и регулировать их размеры. Но иногда может возникнуть необходимость разместить кнопки или другие controls непосредственно на сплиттере или между двумя разделяемыми панелями.

Проблема

Задача заключается в том, чтобы разместить несколько кнопок на сплиттере или между двумя разделяемыми панелями и сделать так, чтобы они перемещались вместе с ним при изменении размера панелей.

Решение

К сожалению, сплиттер в Delphi не является windowed control, поэтому непосредственно на нем разместить controls нельзя. Но мы можем обойти это ограничение, используя Panel и написав логику, которая будет имитировать поведение сплиттера.

Ниже приведен пример кода на Object Pascal (Delphi), который демонстрирует, как это можно сделать:

unit Unit1;

interface

uses
  Winapi.Windows, Winapi.Messages, System.SysUtils, System.Variants, System.Classes, Vcl.Graphics,
  Vcl.Controls, Vcl.Forms, Vcl.Dialogs, Vcl.StdCtrls, Vcl.ExtCtrls;

type
  TForm1 = class(TForm)
    Panel1: TPanel;
    Panel2: TPanel;
    Splitter1: TSplitter;
    Button1: TButton;
    Button2: TButton;
    Button3: TButton;
    procedure FormCreate(Sender: TObject);
    procedure Splitter1Moved(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form1: TForm1;

implementation

{$R *.dfm}

procedure TForm1.FormCreate(Sender: TObject);
begin
  // Устанавливаем ширину сплиттера
  Splitter1.Width := 200;

  // Устанавливаем выравнивание панелей
  Panel1.Align := alLeft;
  Panel2.Align := alClient;
  Splitter1.Align := alLeft;
end;

procedure TForm1.Splitter1Moved(Sender: TObject);
begin
  // Перемещаем кнопки вместе со сплиттером
  Button1.Left := Splitter1.Left + 10;
  Button2.Left := Splitter1.Left + 10;
  Button3.Left := Splitter1.Left + 10;
end;

end.

В этом примере мы используем две панели (Panel1 и Panel2) и сплиттер (Splitter1). Кнопки (Button1, Button2 и Button3) размещаются на левой панели (Panel1). В обработчике события OnMoved сплиттера мы перемещаем кнопки вместе с ним, чтобы они всегда оставались на сплиттере.

Альтернативное решение

Еще один вариант — использовать nested panels. Это позволяет разместить кнопки на правой панели (Panel2) и сделать так, чтобы они перемещались вместе со сплиттером при изменении размера панелей. Для этого нужно установить выравнивание панелей следующим образом:

Panel1.Align := alLeft;
Panel2.Align := alClient;
Splitter1.Align := alLeft;
Panel3.Align := alRight;

В этом случае Panel3 будет содержать кнопки, и они будут перемещаться вместе со сплиттером.

Заключение

В статье мы рассмотрели два способа разместить кнопки на сплиттере в Delphi и сделать так, чтобы они перемещались вместе с ним. Первый способ использует Panel и логику, имитирующую поведение сплиттера, а второй — nested panels. Оба подхода решают проблему и позволяют разместить controls на сплиттере или между двумя разделяемыми панелями.

Создано по материалам из источника по ссылке.

Статья описывает, как разместить кнопки на сплиттере в Delphi и сделать их перемещение вместе с ним.

Комментарии и вопросы

Получайте свежие новости и обновления по Object Pascal, Delphi и Lazarus прямо в свой смартфон. Подпишитесь на наш Telegram-канал delphi_kansoftware и будьте в курсе последних тенденций в разработке под Linux, Windows, Android и iOS

:: Главная :: TSplitter ::