kein OnMouseEnter/-Leave wärend VCL-Ereignisprozedur läuft

[himitsu]

Jupp, ein ganz normales TLabel aus Delphis VCL.

Delphi-Quellcode:

  Type TForm1 = Class(TForm)
      Label12: TLabel;  
      Procedure Label12MouseEnter(Sender: TObject);
      Procedure Label12MouseLeave(Sender: TObject);
    End;

Implementation
  Procedure TForm1.Label12MouseEnter(Sender: TObject);
    Begin
      TLabel(Sender).Font.Style := TLabel(Sender).Font.Style + [fsUnderline];
      Caption := 'E' + Caption;
     End;

  Procedure TForm1.Label12MouseLeave(Sender: TObject);
    Begin
      TLabel(Sender).Font.Style := TLabel(Sender).Font.Style - [fsUnderline];
      Caption := 'L' + Caption;
    End;

Und wärend ich im Grunde ja nur soeine Schleife laufen hab, werden die beiden Ereignisse nicht mehr ausgeführt.

Delphi-Quellcode:

Procedure TForm1.Button1Click(Sender: TObject);
  Begin
    ...
    Repeat
      ...   
      Application.ProcessMessages;
    Until ...;
    ...
  End;

[edit]
dieses Caption := '*' + Caption; is nur drin, damit ich leicht erkenne, ob die Ereignisprozeduren aufgerufen wurden.
(hätt ja sein können, dat nur der StyleChange ignoriert wird)