Форум программистов [Powered by Invision Power Board]

Версия для печати темы
Нажмите сюда для просмотра этой темы в оригинальном формате

Форум программистов > Delphi: Для новичков > перемещение компонента в Delphi с помощью мыши

Автор: bachduong051 13.1.2010, 11:41

Привет Ребята!
Помогите мне пожалуйста!
Как можно делать ,для того чтобы перемещать компонент в Delphi с помощью мыши.В нашем случае Я добавил в форму компонент Tstringgrid,и хочу в времени выполнения программы с помощью мыши изменить местоположение Этого компонента.
Спасибо за помощь!

Автор: Snowy 13.1.2010, 12:07

Любой оконный компонент можно двигать, прописав в OnMouseDown пару строк:

Код

procedure TForm2.StringGrid1MouseDown(Sender: TObject; Button: TMouseButton;
  Shift: TShiftState; X, Y: Integer);
begin
  ReleaseCapture;
  TControl(sender).Perform(WM_SYSCOMMAND, $F012, 0);
end;

Автор: ~FoX~ 13.1.2010, 12:14

Form1.DragMode := dmAutomatic;
StringGrid1.DragMode := dmAutomatic;

Код


procedure TForm1.FormDragOver(Sender, Source: TObject; X, Y: Integer;
  State: TDragState; var Accept: Boolean);
begin
 StringGrid1.Left := x;
 StringGrid1.Top := y;
end;