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