Delphi 7 / 2010 - Design von Button + Popup

[taaktaak]

Moin, Moin.
Das Thema hat mich dann doch nicht ruhen lassen. Im Internet findet man ja einiges zum Popup-Ownerdraw. Allerdings habe ich zunächst nichts gefunden, um den äußeren Rand des Popups zu beeinflussen, alle Lösungen sehen daher ziemlich aus. Dann stieß ich auf zwei über zehn Jahre alte Beiträge im Entwickler-Forum und der DelphiPraxis, die genau dieses Problem behandelten. Die Lösung (Hook) von Hagen Reddmann habe ich ein wenig adaptiert - im Anhang eine experimentelle Hook-Klasse "MenuHook.pas" und eine winzige Beispiel-App "test11". Die Links zu den vorgenannten (interessanten) Beiträgen sind im Kopf der Unit "MenuHook" zu finden.
Funktioniert unter Xp und Win7.
Gruß
Ralph