Скачать: CL | DM;

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

← →
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]

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

---

← →
Германн ©   (2006-08-14 00:32) [4]

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

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

---

Страницы: 1 вся ветка

Скачать: CL | DM;



Память: 0.45 MB
Время: 0.025 c