Neuzeichnen von TStatusbar

[Sourcemaker]

Hi,

Ich würde empfehlen die Methode Update aufzurufen Application ProcessMessages geht auch ist aber unter Umständen mit Nebenwirkungen behaftet.

Zitat:

Die Methode Update bearbeitet alle anstehenden Zeichenbotschaften.

Delphi-Syntax:

procedure Update; virtual;

C++ Syntax:

virtual void __fastcall Update(void);

Beschreibung

Mit Update können Sie das sofortige Neuzeichnen des Steuerelements veranlassen, bevor weitere, möglicherweise zeitaufwendige Bearbeitungen durchgeführt werden. Mit Hilfe dieser Methode können Sie dem Benutzer eine sofortige Rückmeldung zukommen lassen.

Update ruft nicht die Methode Invalidate des Steuerelements auf, sondern veranlasst nur das Neuzeichnen von Bildschirmbereichen, die bereits aktualisiert wurden. Wenn auch das Steuerelement erneut gezeichnet werden soll, rufen Sie stattdessen Repaint auf.

Grüße

Frank

[Neelix]

Die Methode Update hat auch nichts gebracht. Teste gerade den Vorschlag von Luckie mit dem sleep. Welche Nebenwirkungen hat den Application.ProcessMesages?

[Sourcemaker]

Beispiel für Nebenwirkung:

Wenn Du eine Form erzeugts und sie in einer SetUp-Routine mit Daten füllst die dann zügig angezeigt werden sollen während weitere Initialisierung ablaufen führt ein Application Processmessage zwar zur direkten Anzeige der Form sorgt aber auch dafür das Events ablaufen bzw. auf Events reagiert wird die erst nach vollständigen SetUp behandelt werden können und das führt zu schönen Knalleffekten. Update hingegen zeichnet hingegen nur die bereits gefüllten Controls neu.

Grüße

Frank

[Neelix]

Sleep (2000) hat leider auch nichts gebracht.

[Muetze1]

Moin!

Noch 2 Vorschlägen:

1. Vor dem Update noch ein Invalidate aufrufen
2. per Hand:

Delphi-Quellcode:

Var
  lRect : TRect;
Begin
  ...

  lRect := StatusBar.ClientRect;
  InvalidateRect(Handle, @lRect, False);
  UpdateWindow(Handle);

  ...
End;

MfG
Muetze1

[bigg]

Code:

Application.ProcessMessages

[franktron]

Machs mal so

Zitat von Neelix:

Hallo,

in einem Programm werden nacheinander mehrere Query's

Delphi-Quellcode:

      
      StatusBar1.SimpleText := 'Erstelle tmp_blabla_1';
      Application.ProcessMessages;
      dmCopyVertrag.qu_CreateDropTable.SQL.Clear;
      dmCopyVertrag.qu_CreateDropTable.SQL.Add('CREATE TEMP TABLE tmp_blabla1 (');
      dmCopyVertrag.qu_CreateDropTable.SQL.Add('bla_1 CHAR(20) NOT NULL,');
      dmCopyVertrag.qu_CreateDropTable.SQL.Add('bla_2 INTEGER NOT NULL)');
      dmCopyVertrag.qu_CreateDropTable.ExecSQL;
      dmCopyVertrag.qu_tmp_blabla_1.ExecSQL;

      StatusBar1.SimpleText := 'Erstelle tmp_blabla_11';
      Application.ProcessMessages;
      dmCopyVertrag.qu_CreateDropTable.SQL.Clear;
      dmCopyVertrag.qu_CreateDropTable.SQL.Add('CREATE TEMP TABLE tmp_blabla_11 (');
      dmCopyVertrag.qu_CreateDropTable.SQL.Add('bla_11 INTEGER NOT NULL,');
      dmCopyVertrag.qu_CreateDropTable.SQL.Add('bla_12 CHAR(21) NOT NULL)');
      dmCopyVertrag.qu_CreateDropTable.ExecSQL;
      dmCopyVertrag.qu_tmp_blabla_11.ExecSQL;

[Muetze1]

Moin!

Und für die letzten beiden nochmals dieses hier. Application.ProcessMessages ist an dieser Stelle wirklich kein guter Weg und wirkt eh wie eine Holzhammermethode.

MfG
Muetze1

[Neelix]

Hallo Muetze1,

Test läuft.

[Neelix]

Hat auch nichts gebracht. In meiner Verzweiflung versuche ich nun doch Application.ProcessMessages.