Delphi-PRAXiS - Einzelnen Beitrag anzeigen

**fkerber**

Hi!

Probier mal das:

Delphi-Quellcode:

			procedure TForm1.ShowHelp(Sender: TObject);

begin

StatusBar1.Panels.Items[0].Text:=Application.Hint;

end;

procedure TForm1.FormCreate(Sender: TObject);

begin

  Application.HintColor:=ClInfoBk;

  Application.OnHint:=ShowHelp;

end;

Ciao fkerber

fkerber (CodeLib-Manager) Registriert seit: 9. Jul 2003 Ort: Ensdorf 6.723 Beiträge Delphi XE Professional	#2 Re: Hints 7. Apr 2004, 10:13 Hi! Probier mal das: markieren Delphi-Quellcode: procedure TForm1.ShowHelp(Sender: TObject); begin StatusBar1.Panels.Items[0].Text:=Application.Hint; end; procedure TForm1.FormCreate(Sender: TObject); begin Application.HintColor:=ClInfoBk; Application.OnHint:=ShowHelp; end; Ciao fkerber Frederic Kerber
	Zitat

Einzelnen Beitrag anzeigen

Re: Hints