|
Order and save right now!
20% off with the 729824315 dicscount code for Ultimate Pack and any another product for Delphi from Greatis Programming! |
⤷ Detect if user select menu item
Use should hook WM_MENUSELECT message for this. In this example, when user select some menu item, form color will change.
type
TForm1 = class(TForm)
private
{ Private declarations }
procedure WMMenuSelect(var Msg: TWMMenuSelect);
message WM_MENUSELECT;
public
{ Public declarations }
end;
...
procedure TForm1.WMMenuSelect(var Msg: TWMMenuSelect);
begin
inherited;
Randomize;
Color:=RGB(Random(255), Random(255), Random(255));
end;
-
More for developers
