EX7: StringGrid und OnShow bzw. OnChange

[Kralle]

Hallo,

im Hauptformular wird mittels

Delphi-Quellcode:

 
procedure TForm1.FormShow(Sender: TObject);
begin
if Datenmodul.FlagListeNeu then
  begin

    StringGrid1.Cols[1].Assign(Datenmodul.Liste);
    StringGrid1.Refresh; // Auch .Repaint bringt nicht
    Datenmodul.FlagListeNeu:= False;
  end;
end;

Die Daten ins Grid eingetragen.

Aber, das Flag wird True und das Grid nicht aktualisiert. Erst wenn man es anwählt.

Gruß HEiko