paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-09-01 23:00:27 +02:00
Code Issues Packages Projects Releases Wiki Activity

Designer: Create a default event for a component when [Ctrl+Enter] is pressed

Browse Source
This commit is contained in:
n7800 2024-08-21 04:02:18 +05:00 committed by Juha
parent eba189ea8c
commit 47e4c54d48
1 changed files with 8 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

9
designer/designer.pp
View File

@ -2844,7 +2844,14 @@ begin
VK_RETURN: VK_RETURN:
if Shift = [] then if Shift = [] then
DoShowObjectInspector DoShowObjectInspector
else else if Shift = [ssCtrl] then
begin
// ToDo: create an event for each selected control (currently
// GetComponentEditorForSelection returns nil if more than one is selected)
PopupMenuComponentEditor := GetComponentEditorForSelection;
if assigned(PopupMenuComponentEditor) then
PopupMenuComponentEditor.Edit;
end else
Handled := False; Handled := False;
VK_A: VK_A: