doublebuffered

[blackyhb]

Hallo

ich schalte über ein Menü und Untermenü doublebuffered von Tform1 ein und aus.

Das klappt alles wunderbar, jedoch beim Aussschalten von doublebuffered bleibt
das Untermenü teilweise sichtbar. Dabei habe ich folgenden Code verwendet:

Delphi-Quellcode:

procedure TForm1.FormCreate(Sender: TObject);
begin
      sleep(250);
      Gridinput;
      if not DouBuf1.Checked then doublebuffered:=false
         else doublebuffered:=true;
end;

procedure TForm1.DouBuf1Click(Sender: TObject);
begin
   if DouBuf1.checked then DouBuf1.checked:= false
      else DouBuf1.checked:= true;
   FormCreate(nil);
end;

Alle Versuche das zu ändern sind bei fehlgeschlagen (Anfänger).
Vielleicht kennt hier jemand eine Lösung!?

blackyhb