Image

[Stefan_w]

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

[Kroko1999]

OnMouseMove sollte dassein, was Du suchst

[Waldteufel]

Hi.

Zitat von Kroko1999:

OnMouseMove sollte dassein, was Du suchst

Nicht eher OnClick?

[Kroko1999]

Zitat von Waldteufel:

Hi.

Zitat von Kroko1999:

OnMouseMove sollte dassein, was Du suchst

Nicht eher OnClick?

Dann fehlen ihm aber die X- und Y-Koodinate!

[leddl]

Wie wärs mit OnMouseDown bzw OnMouseUp? Damit ham wir dann ja bald fast alles durch.

[Waldteufel]

Hi.

Zitat von Kroko1999:

Zitat von Waldteufel:

Hi.

Zitat von Kroko1999:

OnMouseMove sollte dassein, was Du suchst

Nicht eher OnClick?

Dann fehlen ihm aber die X- und Y-Koodinate!

Sicher?

Delphi-Quellcode:

procedure TForm1.Image1Click(Sender: TObject);
begin
  ShowMessage(IntToStr(Mouse.CursorPos.X));
  ShowMessage(IntToStr(Mouse.CursorPos.Y));
end;

[Stefan_w]

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

[Waldteufel]

Hi.

Zitat von Stefan_w:

tuts aber leider nicht . der meint inkompatible typen bei shift=ssleft. warum das denn in der hilfe stand das doch so.

TShiftState ist ein set of (ssShift, ssAlt, ssCtrl, ssLeft, ssRight, ssMiddle, ssDouble)... Du musst also prüfen:

if ssLeft in ShiftState then {...}

[Stefan_w]

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?

[leddl]

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?