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;