Halli Hallo!
Ich möchte folgendes in meinem Programm per Buttonklick in einem externen Programm ein Menu-Item des Main-Menus "enablen". Dazu benutze ich die "EnableMenuItem"-Funktion der Win-API.
Mein Problem ist jedoch, dass das Menu-Item zwar enabled wird, das OnClick-Event aber quasi nicht aufgerufen wird, das heißt ich kann darauf klicken und das Menu klappt auch wieder zu, jedoch passiert dann weiter nichts.
Ein eher kleineres Problem ist dazu noch, dass der Button zwar "enabled" wird, er bleibt jedoch "grayed".
Folgenden Code benutze ich:
Delphi-Quelltext
1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
| var
hfrm, hmenu, hsubmenu: THandle;
hfrm := FindWindow('Tfrmukmmain', 'UKM');
if hfrm <> 0 then
begin
hmenu := GetMenu(hfrm);
if hmenu <> 0 then
begin
hsubmenu := GetSubMenu(hmenu, 3); if hsubmenu <> 0 then
EnableMenuItem(hsubmenu, 9, MF_BYPOSITION or MF_ENABLED); end;
end; |
Ich hoffe, mir kann jemand auf die Sprünge helfen!
Danke schonmal im vorraus!
