Auf die From zeichnen...........

[zwaem86]

Hallo zusammen,

ich steh völlig auf dem Schlauch.............
Man könnte von 'nem gelernten Anwendungsentwickler (der in der Arbeit auch noch in Delphi programmiert) ja erwarten, dass er es hinkriegt mit Canvas umzugehen.

Es ist ja nicht so als wenn ich es nicht schon gemacht hätte..........
Ich wollt heute 'ne Anwendung schreiben die ein bsschen rumzeichnet........
Aber ich bin zu Blöd 'ne einfache Linie zu zeichnen.


Hier mein Code:

Delphi-Quellcode:

unit Unit1;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs;

type
  TForm1 = class(TForm)
    procedure FormCreate(Sender: TObject);
  private
    { Private-Deklarationen }
  public
    { Public-Deklarationen }
  end;

var
  Form1: TForm1;

implementation

{$R *.dfm}

procedure TForm1.FormCreate(Sender: TObject);
begin
  Canvas.Pen.Color   := clRed;
  Canvas.MoveTo(10, 10);
  Canvas.LineTo(20, 10);
end;

end.

Es passiert einfach nix!!!!!11elf

kann mir bitte jmd. helfen........

Danke im Voraus.

[DeddyH]

Mach das mal statt OnCreate im OnPaint-Event ;)

[zwaem86]

Och bin ich blöd...........

Hast recht danke........

hab glaub ich den falschen Beruf gewählt...........;-)

Danke Danke