Как перемещать компоненты во время работы программы

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

type
  TForm1 = class(TForm)
    Button1: TButton;
    procedure Button1MouseDown(Sender: TObject; Button: TMouseButton;
    Shift: TShiftState; X, Y: Integer);
    procedure Button1MouseMove(Sender: TObject; Shift: TShiftState; X,
    Y: Integer);
    procedure Button1MouseUp(Sender: TObject; Button:
    TMouseButton; Shift: TShiftState; X, Y: Integer);
  private
    {Private declarations}
  public
    {Public declarations}
    MouseDownPoint : TPoint;
    Moving : bool;
end;

var
  Form1: TForm1;

implementation

{$R *.DFM}

procedure TForm1.Button1MouseDown(Sender: TObject; Button: TMouseButton;
Shift: TShiftState; X, Y: Integer);
begin
  if ssCtrl in Shift then
  begin
    SetCapture(Button1.Handle);
    Moving := true;
    MouseDownPoint.X := x;
    MouseDownPoint.Y := Y;
  end;
end;

procedure TForm1.Button1MouseMove(Sender: TObject; Shift: TShiftState; X, Y: Integer);
begin
  if Moving then
  begin
    Button1.Left := Button1.Left - (MouseDownPoint.x - x);
    Button1.Top := Button1.Top - (MouseDownPoint.y - y);
  end;
end;

procedure TForm1.Button1MouseUp(Sender: TObject; Button:
TMouseButton; Shift: TShiftState; X, Y: Integer);
begin
  if Moving then
  begin
    ReleaseCapture;
    Moving := false;
    Button1.Left := Button1.Left - (MouseDownPoint.x - x);
    Button1.Top := Button1.Top - (MouseDownPoint.y - y);
  end;
end;

Это программный код на Delphi, демонстрирующий, как перемещать компонент (в этом случае, кнопку) вокруг формы с помощью событий мыши.

Содержание кода:

1. Класс TForm1 определяет три процедуры: Button1MouseDown, Button1MouseMove и Button1MouseUp. Эти процедуры обрабатывают соответствующие события мыши для кнопки.
2. В процедуре Button1MouseDown программа проверяет, нажата ли клавиша Ctrl (используя константу ssCtrl из типа TShiftState). Если это так, программа устанавливает флаг Moving в значение true, захватывает мышь и записывает текущее положение мыши в переменную MouseDownPoint.
3. В процедуре Button1MouseMove если флаг Moving установлен в true, программа корректирует позицию кнопки на основе разницы между текущим положением мыши и зарегистрированным положением мыши из MouseDownPoint.
4. В процедуре Button1MouseUp когда пользователь отпускает кнопку мыши, программа освобождает захват мыши и устанавливает флаг Moving в значение false. Она также обновляет позицию кнопки последний раз.

Код использует следующие функции и константы Delphi:

• SetCapture: захватывает мышь для указанного окна.
• ReleaseCapture: освобождает захваченную мышь.
• ssCtrl: константа из типа TShiftState, представляющая клавишу Ctrl.
• TPoint: тип записи, представляющий точку в 2D пространстве (координаты x и y).
• Button1.Handle: получает handle кнопки управления.

Этот код может быть использован как стартовая точка для разработки более сложных программ, которыеinvolve перемещение и манипуляцию контролами на форме с помощью событий мыши.

В статье описывается способ перемещения компонентов в Delphi при помощи событий MouseDown,MouseMove и MouseUp для реализации функции перетаскивания элементов на форме.

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

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

:: Главная :: RTTI ::