Reply to Eigener Cursor bei TPopupMenu bzw. TMainMenu... on Mon, 06 Dec 2004 14:39:09 GMT

Reyx — Mon, 06 Dec 2004 14:39:09 GMT

Hallo,
ich verwende in meinem Programm einen eigenen Cursor, welcher beim Start mit

Screen->Cursors[1000] = LoadCursorA(HInstance, "my_default_cursor");

geladen wird. Im Form klappt das auch wunderbar, aber jetzt würde ich gerne ein Hauptmenü machen, welches stilistisch zu dem Rest des Programms passt. In dem Moment, da ich aber mit

popup_menu->PopUp(0, 0);

das Menü aufrufe (es basiert auf einer TPopupMenu-Komponente), wird wieder der "normal" Windows-Cursor angezeigt (Gleiches auch bei einem TMainMenu).

Wie kriege ich es hin, dass er auch dann meinen eigenen Cursor anzeigt?
Weder TPopupMenu nocht TMainMenu haben eine Property Cursor, und auch mit

Screen->Cursors[crDefault] = LoadCursorA(HInstance, "my_default_cursor");
Screen->Cursors[crArrow] = LoadCursorA(HInstance, "my_default_cursor");

habe ich kein besseres Ergebnis bekommen. Weiß jemand, wie das geht? Ich habe mich schon durch die FAQ gelesen.