Registriert seit: 12. Dez 2004
Ort: Wien, Österriech
893 Beiträge
Delphi 6 Enterprise
|
Re: topgrid zelle unter maus position ermitteln
9. Mär 2005, 13:40
Zitat:
wie bekomm ich die mousekoordinaten in bezug zum uebergeordnetem objekt?
Delphi-Quellcode:
procedure TForm1.Timer1Timer(Sender: TObject);
var r:tpoint;
begin
caption :=' Screen -> x: '+inttostr(Mouse.CursorPos.X)+' y: '+inttostr(Mouse.CursorPos.Y);
r:= Mouse.CursorPos;
windows.ScreenToClient(StringGrid1.Handle,r);// TopGrid.Handle wäre es bei dir
caption :=caption+' Client -> x: '+inttostr(r.X)+' y: '+inttostr(r.Y);
end;
Katura Haris Es (ein gutes Wort) ist wie ein guter Baum, dessen Wurzel fest ist und dessen Zweige in den Himmel reichen.
|