|
Платные хостинги
Раскрутка сайта
Книги по программированию
Как отображать координаты курсора
- Это как?
- 2 Vit:Наверное имеется в виду следующее: курсор - как монитор координат мышки.2 Dedal: Можно сделать так (но не нужно): procedure TForm1.FormMouseMove(Sender: TObject; Shift: TShiftState; X, Y: Integer);begin Label1.Top:=y-10; Label1.Left:=x+10; Label1.Caption:=Inttostr(x)+' '+inttostr(y);end;Первое, что пришло в голову. Советую не использовать данную процеДуру (просто как вариант). PS Знаки препинания - отличная штука, если, конечно, умеешь ими пользоваться
- А не лучше как у всех на StatusBar выводить?
- Вот ещё вариантunit Unit1;interfaceuses Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs, StdCtrls, ExtCtrls;type TForm1 = class(TForm) Label1: TLabel; Timer1: TTimer; procedure Timer1Timer(Sender: TObject); private { Private declarations } public { Public declarations } end;var Form1: TForm1; mousepos : TPoint; mx, my : longword;implementation{$R *.DFM}procedure TForm1.Timer1Timer(Sender: TObject);beginGetCursorPos(mousepos);mx := mousepos.x;my := mousepos.y;label1.Caption := FloatToStr(mx) + ' ' +FloatToStr(my);end;end.
- Тогда нужно ограничивать перемещение окном.
- вот еще вариант:procedure TForm1.FormMouseMove(Sender: TObject; Shift: TShiftState; X, Y: Integer);beginRefresh;Form1.Canvas.TextOut(x,y-10,Inttostr(x)+' '+inttostr(y));end;
- Тогда ещё нужно обновлять содержимое канвы.
- 2Song: Всех поправил..... :-)))Теперь предлагай свой вариант!!!!!!
- Мой вариант THintWindow+Application.ActivateHint()
- А можно, как уже приводилось на етом форуме, через HOOK:var HookHandle: hHook;function HookProc(Code: integer; WParam: word; LParam: Longint): Longint; stdcall;var msg: PEVENTMSG;begin if Code >= 0 then begin result := 0; msg := Pointer(LParam); with Form1 do case msg.message of WM_MOUSEMOVE: Caption := IntToStr(msg.ParamL) + #32 + IntToStr (msg.ParamH); end; end else result := CallNextHookEx(HookHandle, code, WParam, LParam);end;procedure TForm1.FormCreate(Sender: TObject);beginHookHandle := SetWindowsHookEx(WH_JOURNALRECORD, @HookProc, HInstance, 0);end;procedure TForm1.FormDestroy(Sender: TObject);beginif HookHandle <> 0 then UnhookWindowsHookEx(HookHandle);end;
Интернет казино
Онлайн игры
Увеличение члена
Купить DVD
|
