| Новости | Поиск | FAQ | Статьи | Книги | Новости VCL | | Форумы ЧАТ | Орешник | KOL и MCK |
Форумы -» Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG

	« предыдущая ветвь | форум | следующая ветвь »

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

fog ©   (2006-08-13 20:35:00) 

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

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

В форме - SimplePanel = True.

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

---

Германн   (2006-08-14 00:32:00) [1]

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

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

---

Юрий Зотов   (2006-08-14 00:27:00) [2]

> fog   (14.08.06 00:06) [2]

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

---

fog   (2006-08-14 00:06:00) [3]

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;

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

---

begin...end   (2006-08-13 20:45:00) [4]

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

---

Наверх