調用前賦一個事件:
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;