![]() |
Image
Hi sorry falls ich euch nerve aber ich bin ein Programmieranfänger und hätte da ne wohl ganz einfache Frage für euch:
hab bisher so nen Funktionsplotter programmiert. der zeichnet nach angabe von nen paar koordinaten ne kurve auf ein image. jetzt würde ich gerne dazu programmieren, dass ich bsp. wie bei paint ein dreiecksymbol in der funktionsleiste wähle, dann auf das image klicke und der das als eckpunkt festsetzt und durch nochmaliges und nochmaliges klicken die anderen eckpunkte festgelegt wird. jetzt ist meine frage wie ich mir die koordinaten von dem punkt auf der paintbox wo ich hingeklickt habe ausgeben lassen kann. freu mich schon auf eure hilfe stefan |
Re: Image
OnMouseMove sollte dassein, was Du suchst
|
Re: Image
Hi.
Zitat:
|
Re: Image
Zitat:
|
Re: Image
Wie wärs mit OnMouseDown bzw OnMouseUp? :lol: Damit ham wir dann ja bald fast alles durch.
|
Re: Image
Hi.
Zitat:
Delphi-Quellcode:
procedure TForm1.Image1Click(Sender: TObject);
begin ShowMessage(IntToStr(Mouse.CursorPos.X)); ShowMessage(IntToStr(Mouse.CursorPos.Y)); end; |
Re: Image
hab da mal so nen konstrukt gebastelt wie ich gedacht hab das es funktioniert:
procedure TForm1.Image1MouseMove(Sender: TObject; Shift: TShiftState; X, Y: Integer); var eckpunkte,startx,starty:integer; begin eckpunkte:=0; if Shift=ssleft then begin case eckpunkte of 0:begin image1.canvas.moveto(x,y); startx:=x; starty:=starty; end; 4:begin image1.canvas.lineto(x,y); image1.canvas.lineto(startx,starty); end; else image1.canvas.lineto(x,y); end; eckpunkte:=eckpunkte+1; end; end; tuts aber leider nicht :-(. der meint inkompatible typen bei shift=ssleft. warum das denn in der hilfe stand das doch so. gruß stefan |
Re: Image
Hi.
Zitat:
Delphi-Quellcode:
if ssLeft in ShiftState then {...}
|
Re: Image
wenn ich das mit dem cursor machen will. wie bekomm ich denn dann die koordinaten von dem cursor auf dem image und nicht auf dem form?
|
Re: Image
Naja, du hast die Koordinaten der Maus auf der Form, du hast die Left- und Top-Koordinaten des Images auf dem Form. Was lässt sich damit wohl machen? :gruebel: :zwinker:
|
Alle Zeitangaben in WEZ +1. Es ist jetzt 08:42 Uhr. |
Powered by vBulletin® Copyright ©2000 - 2024, Jelsoft Enterprises Ltd.
LinkBacks Enabled by vBSEO © 2011, Crawlability, Inc.
Delphi-PRAXiS (c) 2002 - 2023 by Daniel R. Wolf, 2024 by Thomas Breitkreuz