alternating text

[Sharky]

Hai remote1,

meinst Du so etwas:

Delphi-Quellcode:

var
 alternate : Boolean = False;

procedure TForm1.FormCreate(Sender: TObject);
begin
 Timer1.Enabled := False;
end;

procedure TForm1.Label1MouseEnter(Sender: TObject);
begin
 Timer1.Enabled := True;
end;

procedure TForm1.Timer1Timer(Sender: TObject);
begin
 If (alternate) then
  begin
   Label1.Caption := 'Text1';
  end
 else
  begin
   Label1.Caption := 'Text2';
  end;
  alternate := not (alternate);
end;

procedure TForm1.Label1MouseLeave(Sender: TObject);
begin
 Timer1.Enabled := False;
end;

P.S.: Ich verschiebe das mal nach VCL.