函数查找界面加入快捷键，上下，ctrl+o打开

2025-01-24 09:11:07 +08:00
parent 5e04ec2088
commit e8d2e5851e
4 changed files with 8 additions and 0 deletions
@@ -54,6 +54,14 @@ type t_function_finder=class(tdcreateform)
    begin
        ec := e.charcode;
        case ec of
            ord("O"):
            begin
                if ssCtrl in  e.shiftstate() then 
                begin 
                    e.skip := true;
                    openthefile();
                end 
            end 
            13:
            begin 
                return dofind();