Delphi Ereignise abfangen

Thema durchsuchen

Ansicht

Themen-Optionen

Ereignise abfangen

Ein Thema von mimi · begonnen am 14. Sep 2006 · letzter Beitrag vom 15. Sep 2006

Vorheriger Beitrag

Nächster Beitrag

mimi

Registriert seit: 1. Dez 2002
Ort: Oldenburg(Oldenburg)
2.008 Beiträge

FreePascal / Lazarus

Re: Ereignise abfangen

14. Sep 2006, 21:49

habe was gefunden im internet:

zusammenfalten · markieren

Delphi-Quellcode:

			procedure TMycaption.MM(var Msg: tagMSG;var Handled: Boolean);

var

  Point:Tpoint;

begin

  if msg.message = WM_MOUSEMOVE then begin

     Point.X:=( Msg.lParam         and $FFFF);

     Point.Y:=((Msg.lParam shr 16) and $FFFF);

     mx:=Point.x; my:=point.y;

     isSel:=GetSel(-1,-1);

  end;

end;