Hints aller Objekte anzeigen

[hirnstroem]

Will das eigentlich nur noch bestätigt haben.

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

Grüsse
hirnstroem

[himitsu]

Da es nur ein globales HintObjekt in Application gibt, ist das auf normalem Weg unmöglich.

Du kannst höchstens selber für jeden existierenen Hinteintag ein Fenster erstellen, welches du halt wie ein Hintwindow aussehen läßt.

[Evian]

schau mal hier (eigene Hints erstellen) wenn Du diese Individuellen Hints benutzt, dann kannst Du sie auch alle auf einmal anzeigen lassen.

[himitsu]

Zitat von Evian:

... wenn Du diese Individuellen Hints benutzt, dann kannst Du sie auch alle auf einmal anzeigen lassen.

Das geht auch nicht so einfach, er muß sich dann auch die Klasse neu erstellen und nicht auf THintWindow aufbauen, denn diese wendet sich an Application und dessen Hintverwaltung, welche dann bestimmt etwas durchdreht, wenn plötzlich mehrere Hint-Windows, welche noch nichtmal angemeldet sind sich dort melden

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