Перемещение компонентов в design-time

Квази
Дата: 13.06.2019 08:29:09
Есть к примеру TPanel. В нем грид с align:=client. Как можно перемещать панель по форме мышью? В VS это реализовано, а в D нет?
_Vasilisk_
Дата: 13.06.2019 14:51:12
Можно клавиатурой
shonli95
Дата: 13.06.2019 15:09:50
var
  SX: Integer = -1;
  SY: Integer = -1;



...

procedure Point1Set(X, Y: Integer);
begin
  SX := X;
  SY := Y;
end;

procedure Move(Sender: TObject; X, Y: Integer);
begin
  if SX >= 0 then
  begin
    TControl(Sender).Left := TControl(Sender).Left - (SX - X);
    TControl(Sender).Top := TControl(Sender).Top - (SY - Y);
  end;
end;


...

procedure TForm3.MouseDown(Sender: TObject; Button: TMouseButton; Shift: TShiftState; X, Y: Integer);
begin
  Point1Set(X, Y);
end;

procedure TForm3.MouseMove(Sender: TObject; Shift: TShiftState; X, Y: Integer);
begin
  Move(Sender, X, Y);
end;

procedure TForm3.MouseUp(Sender: TObject; Button: TMouseButton; Shift: TShiftState; X, Y: Integer);
begin
  Point1Set(-1, -1);
end;
DimaBr
Дата: 13.06.2019 15:50:58
Можно выделить Панель и изменять её размеры
_Vasilisk_
Дата: 13.06.2019 17:27:10
DimaBr
Панель и изменять её размеры
Он двигать хочет
DimaBr
Дата: 13.06.2019 22:02:43
_Vasilisk_
Он двигать хочет

А я разве не подвинул ?
Картинка с другого сайта.
Gator
Дата: 13.06.2019 22:36:42
DimaBr, у тебя грида нет с align:=client Картинка с другого сайта.
DimaBr
Дата: 13.06.2019 22:43:49
Так сойдёт ?
Картинка с другого сайта.
Gator
Дата: 13.06.2019 22:52:09
DimaBr, это надо Квази пытать. Оно спросило
Квази
Дата: 14.06.2019 06:43:00
DimaBr
Так сойдёт ?
Картинка с другого сайта.

ползком )
ну тоже вариант