- setz ne globale var durch den labeldragevent
- Form.onmousemove... übergeb damit die cursorpos...
uuppsss vergessen.. sample:
Delphi-Quellcode:
var blub : boolean;
Procedure tform1.onmousemove();
begin
if (Shape <> nil) and blub then
begin
{poswerte übergeben}
end;
end;