alternating text

[Remote1]

wie erhalte ich bei einem mouseover einen alternating text wie bei html

ps: ich möchte keine statusbar

[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.

[Remote1]

wenn man bei html über ein bild o.ä. geht kommtz doch immer ien kleiner text (alternating text) und genau den möchte ich auch in delphi

[Sharky]

Wie wäre es mit einem Hint.

[MathiasSimmack]

Wusste ich doch
Das nennt sich "Hint" oder "Tooltip". Schau mal in deinen Objektinspektor. Manche Controls bieten das von sich aus an. Bei einigen müsste man wahrscheinlich via API nachhelfen.