Frage zu getcursorpos

[Lefko]

Zitat von Obi-1-ip:

...was ich genau machen will wenn ich eine canvas habe auf der ich bei click ein rechteck zeichnen will!!!

Ich glaube, du willst eine canvas haben auf der du bei click ein rechteck zeichen willst!

Ne, Scherz beiseite...
Du willst ein Rechteck zeichnen, wenn du auf das Image klickst? Wie groß soll das Rechteck sein? Willst du das mit der Maus ziehen oder einfach nur hinzeichnen?

einfach zum zeichnen wäre sowas:

Delphi-Quellcode:

procedure TFormX.FormMouseDown(Sender: TObject; Button: TMouseButton;
                               Shift: TShiftState; X, Y: Integer);
begin
with ImageX.canvas do
  begin
   pen.color := clblack;
   brush.color := white;
   rectangle(x , y , x + 30 , y + 50);
  end;
end;

Ansonsten schau dir (wie dein titel) GetCursorPos(Point) mal an, damit kannst du ein Rechteck ziehen...


MfG Lefko.