Problem mit Application.ProcessMessages

[youuu]

Hi,

ich habe ine Problem mit Application.ProcessMessages, bei diesem Code funktioniert alles einwandfrei.

Delphi-Quellcode:

while Node <> nil do
  begin
    .
    .
    .


      Try
        .
        .
        if result then
        Begin
          Customer.status:= 'aktive';
          FormMain.VstCustomer.RepaintNode(Node); 
        End
        else
        Begin
          Customer.status:= 'inaktive';
          FormMain.VstCustomer.RepaintNode(Node); 
        End;
      Finally
        FormMain.QueryUpdate.Close;
      End;
    Node:= FormMain.VstCustomer.GetNext(Node);   

    FormSplash.LabelStatus.Caption.Text:= 'Kunden werden aktualisiert ...  ['+IntToSTr(Count)+' / '+IntToSTr(FormMain.VstCustomer.RootNodeCount)+']';  // Hier wird dem Kunden der Fortschritt angezeigt deswegen  Application.ProcessMessages;
    inc(Count);
    Application.ProcessMessages;
  end;

Wenn ich nun allerdings im VstGetText Event noch diese Zeilen hnzufüge

Delphi-Quellcode:

  If Customer.status = 'aktive' Then
    Sender.Font.Color:= ClGreen
  Else
    Sender.Font.Color:= ClRed;

Doch dan bleibt das Programm direkt nach dem 1. Datensatz hängen.


Weiss jemand wieso?