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

[Dax]

Versuch doch mal, danach dein Formular mit Form.Repaint neu zu zeichnen.

[Luckie]

Du kannst die Abfrage vereinfachen:
DouBuf1.Checked := not DouBuf1.Checked; Somit wird immer der ist Zustand umgekehrt.

Warum dein menü nicht neu gezeichnet wird, weiß ich im Moment auch nicht. Versuch es mal neu zu zeichnen (Refresh, Repaint) oder ruf danach mal Application.Processmessages auf.

[blackyhb]

Hallo ,

schnelle Lösung und so einfach.

Danke

blackyhb