
//--- Widget设置窗口初始化事件，当打开Widget设置窗口时会触发此事件 ---
procedure OnSettingInit;
begin
  edt1.text:=GetSetting('Hotkey1','Ctrl+1');
  edt2.text:=GetSetting('Hotkey2','Ctrl+2');
end;

//--- Widget设置窗口关闭事件，当按下设置窗口的确定按钮时会触发此事件 ---
//通过设置返回值来改变是否允许确认,当result为False时不关闭设置窗口
function OnSettingClose(iResult):boolean;
var
  i:integer;
begin
  result:=false;
  try
    if StrToHotkey(edt1.text)=0 then
    begin
      showmsg('无效的热键，请重新输入！');
      exit;
    end;
    if StrToHotkey(edt2.text)=0 then
    begin
      showmsg('无效的热键，请重新输入！');
      exit;
    end;
    SetSetting('Hotkey',edt1.text);
    result:=true;
  except
 		
  end;
end;
