Динамические компоненты и MouseMove

[Шульц]

Суть:
Создаю динамически компоненты - TPanel, количество изночально не известно. Хочу сделать что бы их можно было свободно перемещать по форме. Делаю это следующим образом. Объявляю три глобальные переменные

x1,y1:integer;
d:boolean;

При создании компонентов присваиваю им функции OnMouseDown, OnMouseUp и OnMouseMove.

Первые две имеют код

procedure TMainForm.PanelMouseDown(Sender: TObject;
  Button: TMouseButton; Shift: TShiftState; X, Y: Integer);
begin
d:=True;
x1:=x;
y1:=y;
end;

procedure TMainForm.PanelMouseUp(Sender: TObject;
  Button: TMouseButton; Shift: TShiftState; X, Y: Integer);
begin
d:=False;
end;

а вот для OnMouseMove не знаю как узнать над каким компонентом двигается мышь, но структура следующая

procedure TMainForm.PanelMouseMove(Sender: TObject;
  Shift: TShiftState; X, Y: Integer);
begin
if d=True then
 begin
  Panel.Left:=Panel.Left+x1-x;
  Panel.Top:=Panel.Top+x1-x;
 end;
end;

И сам вопрос. Как мне узнать над каким именно Panel находится курсор мыши?

[MalexG]

В обработчике события используй Sender - это указатель на объек обработчика события.
Пример:

if Sender is TPanel then
begin
  (Sender as TPanel).Left := ...;
  (Sender as TPanel).Top := ...;
end;

[Deight]

Шульц, это старые методы, лови примочку в mousedown пиши

releasecapture;
sendmessage((sender as twincontrol).Handle, wm_syscommand,$f012, 0);

не надо ни каких переменных.

[Шульц]

Deight, чет у мя Делфа на все твои слова кодовые ругается. Для Делфи 7 эти примочки работают?

[Kotofff]

Причем тут версия Делфей ...
Вот так как сказал ,Deight :

procedure TForm1.Panel1MouseDown(Sender: TObject; Button: TMouseButton; Shift: TShiftState; X, Y: Integer);
begin
  releasecapture;
  sendmessage((sender as twincontrol).Handle, wm_syscommand,$f012, 0);
end;

Все работает ...

[Шульц]

Вот тоже самое обсалютно написал. Пишет что не знает слов releasecapturе, sendmessage и wm_syscommand.

[Deight]

Шульц, а куда вы пишите этот код?

[Kotofff]

Сообщение от Deight

Шульц, а куда вы пишите этот код?

+
Модули Windows и Messages подключены ?

P.S.
Может в самом контроле не подключено событие ?

[Шульц]

Шульц, а куда вы пишите этот код?

Пишу в обработчик процедуры, которая присвоена событию компонента OnMouseDown/

+ 
Модули Windows и Messages подключены ?

Вы правы, накасячил сам, совсем забыл. Все работает!

MalexG, Deight, Kotofff спасибо вам.

[Квэнди]

Шульц, это старые методы, лови примочку в mousedown пиши

уж если говорить о современности то быстрее Taction в руки...