Vielen Dank. Es hat funktioniert.
Zitat von
shmia:
Ausserdem würde ich daraus eine Procedure machen:
procedure FillTStringsFromMenuHandle(hMenue: HMENU; list:TStrings);
und in irgeneine
Unit mit weiteren Hilfsfunktionen packen.
Das ist eine gute Idee. Aber zuerst wollte ich einmal sicher sein, dass es überhaupt funktioniert
