Hi.
Ich würde gerne eine Art Drehknopf programmieren, mit welcher der Benutzer einen Winkel einstellen kann.
Ich habe mir hierzu ein TPaintBox genommen und darein zeichne ich einen Kreis. Ich finde nur leider kein geeignetes Ereignis, welches mir die Koordinaten des Mauszeigers abfragt auch wenn ich diesen schon von dem PaintBox weggezogen habe. Also ich habe das mit OnDragOver versucht:
Delphi-Quellcode:
procedure TForm1.PaintBox1Paint(Sender: TObject);
begin
PaintBox1.Canvas.Brush.Color:=clWhite;
PaintBox1.Canvas.Pen.Color:=clBlack;
PaintBox1.Canvas.Ellipse(0,0,PaintBox1.Width,PaintBox1.Width);
end;
procedure TForm1.PaintBox1DragOver(Sender, Source: TObject; X, Y: Integer;
State: TDragState; var Accept: Boolean);
begin
Edit1.Text:=IntToStr(X);
Edit2.Text:=IntToStr(Y);
PaintBox1.Canvas.Brush.Color:=clRed;
PaintBox1.Canvas.Pen.Color:=clBlack;
PaintBox1.Canvas.Ellipse(0,0,PaintBox1.Width,PaintBox1.Width);
end;
procedure TForm1.PaintBox1EndDrag(Sender, Target: TObject; X, Y: Integer);
begin
PaintBox1.Canvas.Brush.Color:=clWhite;
PaintBox1.Canvas.Pen.Color:=clBlack;
PaintBox1.Canvas.Ellipse(0,0,PaintBox1.Width,PaintBox1.Width);
end;
Aber das Ereignis findet ja nicht mehr statt sobald man nicht mehr innerhalb des Objekts draggt, ansonsten ist das schon so wie ich es gerne hätte.
Hoffe jemand kann mir helfen.
Gruß, Christoph