HilfeText- OnMouseEnter (Array?)

[shmia]

Genial einfach:

Delphi-Quellcode:

procedure TForm1.OnMouseOverHelp(Sender: TObject); 
begin 
  if sender is Tcontrol then
    MemoHelp.Text := TControl(Sender).Hint;
end;

Nachtrag: du kannst auch 2 verschiedene Hinttexte hinterlegen.
Und Hints auf der Statusleiste werden immer sehr gerne genommen.

Delphi-Quellcode:

procedure TForm1.OnMouseOverHelp(Sender: TObject); 
begin 
  if sender is Tcontrol then
  begin
    MemoHelp.Text := GetLongHint(TControl(Sender).Hint);
    Statusbar.SimpleText := GetShortHint(TControl(Sender).Hint);
  end
  else 
  begin
    MemoHelp.Text := '';
    Statusbar.SimpleText := '';
  end
end;