VPF::перемещение компонента в Delphi с помощью мыши

bachduong051

Дата 13.1.2010, 11:41 (ссылка)

(нет голосов)

Загрузка ...

Новичок

Профиль
Группа: Участник
Сообщений: 7
Регистрация: 20.11.2007

Репутация: нет
Всего: нет

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

Snowy

Дата 13.1.2010, 12:07 (ссылка)

(голосов:1)

Загрузка ...

Эксперт

Профиль
Группа: Модератор
Сообщений: 11363
Регистрация: 13.10.2004
Где: Питер

Репутация: 31
Всего: 484

Любой оконный компонент можно двигать, прописав в 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 (ссылка)

(нет голосов)

Загрузка ...

НЕ рыжий!!!

Профиль
Группа: Участник Клуба
Сообщений: 2819
Регистрация: 8.10.2003
Где: Зеленоград

Репутация: 5
Всего: 68

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;

--------------------

…множественность никогда не следует полагать без необходимости…

0 Пользователей читают эту тему (0 Гостей и 0 Скрытых Пользователей)
0 Пользователей:
« Предыдущая тема \| Delphi: Для новичков \| Следующая тема »