Mouse.CursorPos falsche position?

[ReDoX]

Hi
warum wird der Punkt bei diesem aufruf nicht an die an die richtig position gezeichnet :gruebel:?

Delphi-Quellcode:

procedure TForm1.FormMouseMove(Sender: TObject; Shift: TShiftState; X,
  Y: Integer);
begin
Form1.canvas.pixels[Mouse.CursorPos.x,Mouse.CursorPos.y] := clred;
end;

Die Punkte werden immer rechst unter die Maus gezeichnet :wiejetzt: ?
Mfg MrScholz

[Dax]

Da hast du was falsch verstanden.. Mouse.CursorPos liefert die absolute Position des Mauszeiges, also von oben links. Die Canvas startet aber von oben links in der Clientarea des Fensters in das du zeichnest...

[SirThornberry]

änder es einfach so das dann

Delphi-Quellcode:

Form1.canvas.pixels[x,y] := clred;

da steht

[ReDoX]

Cool Danke jetzt geht es :thumb:
Mfg MrScholz

[M4dl355]

bei mir sag er immer Undefinierter Bezeicherner wenn icheingeben

Delphi-Quellcode:

label1.caption := Mouse.CursorPos.X;

ich habe delphi 3 pro

[ReDoX]

Hi
du musst das in das FormMouseMove Event schreiben , weil nur da die Variablen deklariet sind.
Mfg MrScholz

[Steve]

Hi,

1. WAS ist ein undefinierter Bezeichner? (Label1, Mouse, ...??)
2. Du versucht einer String-Eigenschaft (Caption) einen Integer-Wert (X) zuzuweisen, wandel die Zahl vorher in nen String um: IntToStr

Gruß
Stephan :dance: :xmas:

[Steve]

Zitat:

Zitat von MrScholz

du musst das in das FormMouseMove Event schreiben , weil nur da die Variablen deklariet sind.

Hi,

das würde stimmen, wenn X oder Y benutzt würden, aber hier wird Mouse.CursorPos.X / ...Y benutzt. Mouse ist ne Variable, die in der Unit Controls deklariert wird.

Gruß
Stephan :dance: :xmas:


edit: :oops: nächstes mal nehm ich den EditButton