Wie zeichne ich auf eine form?

[Pseudemys Nelsoni]

hoi,

ich habe tcanvas noch nie benutzt, also wir könnte ich z.b wenn ich maus auf form gedrückt halte und bewege eine linie zeichnen?

[himitsu]

Einfach und schnell - kann ja noch ausgebaut werden.
Hab hier mal nicht abgefragt, welche Taste gedrückt wird ...
Über Button (TMouseButton) und Shift (TShiftState) kannst du abfragen, welche Maustaste(n) und welche Kontroltaste(n) gedrückt/nicht gedrückt sind. (siehe OH)

Delphi-Quellcode:

Var Maustastegedrueckt: Boolean;

{OnCreate}
Procedure TForm1.FormCreate(Sender: TObject);
  Begin
    Maustastegedrueckt := False;
  End;

{OnMouseDown - Maustaste wird gedrückt}
Procedure TForm1.FormMouseDown(Sender: TObject; Button: TMouseButton; Shift: TShiftState; X, Y: Integer);
  Begin
    Maustastegedrueckt := True;
  End;

{OnMouseMove - Maus wird bewegt}
Procedure TForm1.FormMouseMove(Sender: TObject; Shift: TShiftState; X, Y: Integer);
  Begin
    If Maustastegedrueckt Then Begin
      {Form1.}Canvas.Pixels[X, Y] := clBlack;
    End;
  End;

{OnMouseUP - Maustaste wird losgelassen}
Procedure TForm1.FormMouseUp(Sender: TObject; Button: TMouseButton; Shift: TShiftState; X, Y: Integer);
  Begin
    Maustastegedrueckt := False;
  End;

[Pseudemys Nelsoni]

danke, das teste ich nachher mal :)