- This topic has 2 replies, 3 voices, and was last updated 13 years, 8 months ago by
.
Viewing 2 posts - 1 through 2 (of 2 total)
-
Posts
-
Currently, I just replaced the system menu with a simple popup. Without haveing a drop down arrow!
The issue is also, how to deal with the F10 menu activation / deactivation.
procedure TMainForm.ApplicationEventsMessage(var Msg: tagMSG; var Handled: Boolean);
begin
Case Msg.Message Of
WM_NCLButtonDown :
Begin
If Screen.ActiveForm = Self Then Begin
If Msg.wParam = HTSYSMENU Then Begin
SystemPopupMenu.Popup (Left + 6, Top + 26);
Handled := True;
Exit;
End
Else Inherited;
End;
End;
End;
End;
Viewing 2 posts - 1 through 2 (of 2 total)
- You must be logged in to reply to this topic.