Form neuzeichnen

[fidibus]

Hallo Alle,

auf die Gefahr hin, dass diese Frage schon unzählige Male gestellt wurde. Ich zeichne auf eine Form mittels Canvas verschiedene Elemente. Nachdem ein anderes Fenster vor der Form war bzw. die form minimiert wurde, werden die Elemente auf der Form jedoch nicht neu gezeichnet. Ich habe verschiedene Möglichkeiten auprobiert, habe aber scheinbar ein paar Sachen vergessen.

Delphi-Quellcode:

procedure TForm1.FormActivate(Sender: TObject);
begin

  If InitOK = True then Form1.zeichnen;

end;

procedure TForm1.FormShow(Sender: TObject);
begin
  If InitOK = True then Form1.zeichnen;
end;

procedure TForm1.FormClick(Sender: TObject);
begin
  If InitOK = True then Form1.zeichnen;
end;

procedure TForm1.FormKeyPress(Sender: TObject; var Key: Char);
begin
  If InitOK = True then Form1.zeichnen;
end;

Die Prozedur zeichnen enthält das Neuzeichnen der Form.



Danke, der Fidibus

[Bernhard Geyer]

Dafür sind die entsprechenden Draw/Paint-Methoden zuständig. Einfach diese überschreiben und gut ist es.

[fidibus]

Danke Berhard,

gewußt wie