Текущий архив: 2006.09.03;
Скачать: CL | DM;
Вниз
Координаты курсора Найти похожие ветки
← →
fog (2006-08-13 20:35) [0]ДВС! Подскажите, плз, что не правильно.
Есть форма, в ней WinControl полным клиентом + StatusBar.
Добавил в форму OnMouseMoveprocedure 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 вся ветка
Текущий архив: 2006.09.03;
Скачать: CL | DM;
Память: 0.47 MB
Время: 0.05 c
