Rechteck wird nicht angezeigt!

[hannibal]

Hallo,

ich will einfach ein Rechteck auf meiner Form zeichnen aber irgendwie klappt das nicht folgenden Code hab ich geschrieben:

Code:

procedure TMainForm.FormCreate(Sender: TObject);
var
  pic : TBitmap;
begin
  pic := TBitmap.Create;
  pic.Height := 100;
  pic.Width := 100;
  pic.Canvas.Brush.Color := clRed;
  pic.Canvas.FillRect(Rect(0, 0, pic.Width, pic.Height));
  MainForm.Canvas.Draw(0, (MainForm.Width div 2) - (MainForm.Height div 2), pic);
end

Ich bin leider noch ziemlich unerfahren mit Delphi, hoffe Ihr könnt mir weiterhelfen!
Danke in voraus!

mfg hannibal

[turboPASCAL]

Ja, probiere es mal im "OnPaint" vom Canvas. ;)

[Luckie]

Im OnCreate existiert das Form noch nicht und eird erst im OnPaint gezeichnet.

[himitsu]

Du hast auch noch vergessen das Bitmap wieder freizugeben.

Wenn du im OnCreate schon zeichnen willst/mußt, dann zeichne in ein TImage,
ansonsten kannst du im OnPaint direkt auf die Form oder auf eine TPaintBox zeichnen.

Wenn das Bild erhalten bleiben soll, z.B. wenn die Form neu gereichnet werden mußte (z.B. nachdem eine andere Form davor lag), dann auf ein Offscreen-Bitmap zeichnen, welches im OnPaint erneut ausgegeben wird, oder eben in ein TImage.