Delphi-Quellcode:
for I:=0 to high(ModuleButtons) do
begin
showmessage(TModuleClass(Pointer(ModuleButtons[I])).ClassName);
bitmap:=TBitmap.Create;
bitmap.LoadFromResourceName(HINSTANCE,
TModuleClass(Pointer(ModuleButtons[I].Tag)).ClassName);
CreateCursorFromBMP(TModuleClass(Pointer(ModuleButtons[I])).
GetModuleID(TModuleClass(Pointer(ModuleButtons[I])).ClassName),bitmap);
end;
EDIT:
Also. Ich habe KEINE Variable namens ClassName. Ich will diese statische Methode haben.
Ich füge einem Panel mit einer Prozedur mehrere Buttons hinzu, jeder steht für eine Klasse abgeleitet von TModule. Im Tag desselben steckt ein Pointer auf eine class of TModule.
Später lese ich das wieder aus und erzeuge eine Instanz:
module:=TModuleClass(Pointer((Sender as TComponent).Tag));