Hi,
ich wollte mal ein kleines Programm basteln, mit dem man auf dem Bildschirm Entfernungen messen kann, und damit vielleicht auf Winkel. Bisher habe ich, was auch nicht sonderlich schwer war nur die Mausposition:
Quelltext
1:
2:
3:
4:
5:
6:
7:
| procedure TForm1.Timer1Timer(Sender: TObject);
var
P :TPoint;
begin
GetCursorPos(P);
panel1.caption:=inttostr(P.x)+' x '+inttostr(P.y);
end; |
Was ich jetzt noch bräuchte wäre die Mausposition wenn man klickt, aber egal wo man auf dem Bildschirm ist. Mit zwei Klicks deren Positionen gespeichert werden kann man ja den Rest machen. Wie kann ich also mitkriegen, ob geklickt wurde, wenn man nicht auf der Form ist ?
Hier noch ein kleinen Bild wies aussehen sollte:
Moderiert von 
Motzi: Topic aus VCL (Visual Component Library) verschoben am Di 17.08.2004 um 12:17
HOOK