Just today I found that the
Home and
End keys do not work in Lazarus menus in Windows 11, I have not tried in other OSes or previous Windows versions.
Maybe something is wrong with Windows, because these keys do not work in its own
Notepad.exe.
Is there a way to make these keys work?
I tried this code, the
Home and
End keys are shown on the right as shortcuts, but they do not work. Besides that, even if they worked it would be wrong, because
Home and
End should move the selection to top/bottom
without executing the selected lines.
uses
...lcltype...
procedure TForm1.PopupMenu1Popup(Sender:TObject);
var
i: integer = 0;
begin
if (PopupMenu1.Items.Count < 3) then exit;
for i:= 1 to PopupMenu1.Items.Count -2 do
PopupMenu1.Items[i].ShortCut := scNone;
PopupMenu1.Items[0].ShortCut := VK_HOME;
PopupMenu1.Items[PopupMenu1.Items.Count - 1].ShortCut := VK_END;
end;
