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);