eine Arte Drehknopf

[Takeshi]

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

[Binärbaum]

Soll es denn unbedingt ein Drehknopf sein?
Ein einfacher Scrollbar würde doch auch reichen, um den Winkel einzustellen, auch wenn es dann optisch nicht so schön ist, wie ein Drehknopf.

MfG
Binärbaum

[sniper_w]

Zitat:

eine Art Drehknopf

Also ohne DragadnDrop Event könnte ich dir vielleicht helfen, sonst ist es nicht möglich auf die Art und Weise weiter zu kommen.

[xineohp]

moin,

bei den JEDIs gibt es eine solche Komponente ... sieht zwar nicht unbedingt gut aus, aber zumindest das Prinzip sollte erdir vermitteln können. Das ganze nennt sich tJvDialButton.

[Takeshi]

Naja es geht mir eigentlich ausschließlich darum sowas mal zu programmieren, ging mir schon öfters durch den Kopf.
Ich will es auch nicht unbedingt mit einem DragadnDrop Event machen, ich sagte nur damit habe ich es bisher versucht - ohne gewünschten Erfolg. Also wenn du ne Idee hast - sniper_w - gerne her damit.
Aber jetzt will ich mal versuchen mir die jedi Komponente anzusehen.

Thx bisher, Christoph

[Takeshi]

Also so wie ich das sehe verwendet TJvDialButton einen Timer um die Mausposition regelmäßig abzufragen. Die Idee hatte ich auch schon, gehts evtl auch irgendwie ohne Timer?

[Quake]

Ich habe es nicht probiert aber kommt man evtl. mit OnMouseMouve vom Formular weiter?

[Takeshi]

Hmnee MouseMove ist ja auch problematisch..

Also ich habe jetzt mal eine Komponente programmiert (meine erste).
Mit nem Timer funktioniert das recht zufriedenstellend.

Gruß und Danke nochmal, Christoph