設置InputQuery的字体

来源：互联网发布：windows各系统版本编辑：程序博客网时间：2024/06/02 07:29

調用前賦一個事件:
      AnsiString NewString = cfid;
      TNotifyEvent ActiveFun;
      ActiveFun = Screen->OnActiveFormChange;
      Screen->OnActiveFormChange = InputActive;
      if (InputQuery("提示", "輸入值", NewString))
      {
          ...
      }
//-----------------
事件如下:
void __fastcall TfrmRcyw::InputActive(TObject *Sender)
{
    if(Screen->ActiveForm->ClassNameIs("TForm"))
    {
          Screen->ActiveForm->ScaleBy(10, Screen->ActiveForm->Font->Size);
          Screen->ActiveForm->Font->Name="宋体";
          HWND mainh=(HWND)Screen->ActiveForm->Handle,h;
          char str[255];
          while(h)
          {
             GetWindowText(h,str,255);
             if(strcmp(str,"OK")==0)
               SetWindowText(h,"确定");
             if(strcmp(str,"Cancel")==0)
              SetWindowText(h,"取消");
             h=GetWindow(h,GW_HWNDNEXT);
          }
    }
}

//------------------------------

調用結束后再恢复原型
Screen->OnActiveFormChange = ActiveFun;