Координаты курсора

← →
fog (2006-08-13 20:35) [0]

ДВС! Подскажите, плз, что не правильно.
Есть форма, в ней WinControl полным клиентом + StatusBar.
Добавил в форму OnMouseMove

procedure TForm.FormMouseMove(Sender: TObject; Shift: TShiftState; X, Y: Integer); begin StatusBar1.SimpleText := IntToStr(X) + " " + IntToStr(Y); end;

В форме - SimplePanel = True.

Вообще-то, хотел координаты точки из WinControlа, но пока и это не работает.

← →
begin...end © (2006-08-13 20:45) [1]

Перенесите этот код в обработчик OnMouseMove WinControl"а.

← →
fog (2006-08-14 00:06) [2]

procedure TMyWinControl.MCMouseMove(Sender: TObject; Shift: TShiftState; X, Y: Integer); begin if Assigned(TForm(Owner).OnMouseMove) then TForm(Owner).OnMouseMove(Sender, Shift, X, Y); end;

Работает, но выглядит не транспортабельно.

← →
Юрий Зотов © (2006-08-14 00:27) [3]

> fog (14.08.06 00:06) [2]

Зачем вызывать один обработчик из другого, если все можно сделать прямо в нем?

> Юрий Зотов © (14.08.06 00:27) [3]
>
> > fog (14.08.06 00:06) [2]
>
> Зачем вызывать один обработчик из другого, если все можно
> сделать прямо в нем?

Я вот тоже так сначала подумал. А потом подумал, а что если речь идёт о "твоём форуме"?

Координаты курсора Найти похожие ветки