Hints aller Objekte anzeigen

[shmia]

Zitat von hirnstroem:

In einer Applikation mit relativ vielen Objekten, deren Existenz eine Erklärung benötigt, sind eben diesen Objekten Hints zugeordnet. Fährt man mit der Maus darüber, dann erscheinen alle schön.
Nun wollte ich Hilfe Funktion entwickeln, mit welcher es möglich ist, sämtliche Hints, die ja schon implementiert sind, auf ein mal anzuzeigen. Leider habe ich null Anhaltspunkte...

Es handelt sich also um Controls (Steuerelemente); "Objekte" ist viel zu allgemein.
Hier ein Beispiel, wie man alle Hints sammeln kann:

Delphi-Quellcode:

procedure GetAllHints(c:TControl; liste : TStrings);
var
   i : integer;
begin
   if (c.Hint <> '') and (c.ShowHint) then
   begin
      liste.Add(c.Hint);
      liste.Add(''); // Leerzeile
   end;
   for i := 0 to c.controlcount-1 do
      GetAllHints(c.Controls[i], liste);
end;

Angenommen, du hast ein Memo dann wäre der Aufruf so:

Delphi-Quellcode:

Memo1.lines.Clear;
GetAllHints(self, Memo1.Lines);