Zeichnen durch Mausklick auf einem Image.

M.Scoll · Hält's aus hier Beiträge: 2

Ich möchte auf einem Image eine Linie erzeugen, indem ich auf eine bestimmte Stelle klicke und dann die Maus bewege, bis ich von der linken Taste herunter gehe. Wie bei Paint eben.

Mein Quelltext sieht bis jetzt so aus:

markieren

Delphi-Quelltext

1:
2:
3:
4:
5:
6:

procedure TForm1.MouseDown(Sender: TObject; Button: TMouseButton;
  Shift: TShiftState; X, Y: Integer);
begin
  Image1.Canvas.MoveTo(X,Y);
  Image1.Canvas.LineTo(MouseX,MouseY);
end;

Funktioniert das überhaupt mit OnMouseDown oder muss ich ein anderes Event verwenden?

Ich würde mich freuen, wenn ich ein paar Ideen bekommen würde. Danke!

Moderiert von Narses: Delphi-Tags hinzugefügt
Moderiert von Narses: Topic aus Sonstiges (Delphi) verschoben am Do 07.01.2010 um 13:24

Bergmann89 · Verfasst: Do 07.01.10 11:47

Hey,

das OnMouseDown-Event wird nur aufgerufen wenn du die Maustaste runter drückst, wenn du sie gedrückt hälst passsiert da nix.
Versuchs mal so:

markieren

Delphi-Quelltext

1:
2:
3:
4:
5:
6:
7:
8:
9:
10:

procedure TForm1.FormMouseDown(Sender: TObject; Button: TMouseButton; Shift: TShiftState; X, Y: Integer);
begin
  Canvas.MoveTo(X, Y);
end;

procedure TForm1.FormMouseMove(Sender: TObject; Shift: TShiftState; X, Y: Integer);
begin
  if ssLeft in Shift then
    Canvas.LineTo(X, Y);
end;

Mfg Bergmann

p.s.: um den Delphi-code ordentlich darzustelln solltest du ein [ delphi ] [ /delphi ] um deinen Code machen

_________________
Ich weiß nicht viel, lern aber dafür umso schneller^^

M.Scoll · Hält's aus hier Beiträge: 2

hey, vielen Dank! Jetzt funktionierts!

	Mitgliederliste
	Gruppen
	Das Team
	Richtlinien
	Synonyme