تغییر Caption دکمه های در MessageDlg

[Mahdi_S_T]

لطفا راهنمایی بفرمایید چگونه فرضا Caption دکمه ای Yes است را به - بلی- تغییر نام دهم البته من در یونیت Message این تغییر را دادم ولی اعمال نشد همچنین در مورد OpenDialog

[hr110]

دعا فراموش نشه :wink:

[SalarSoft]

یه راه ساده:


Function MessageDlgSnd(Const Msg:String;Caption:String='';DlgType:TMsgDlgType=m tCustom;Buttons:TMsgDlgButtons=[mbok];HelpCtx:Long int=0):Word;
Const
Sounds:Array [TmsgDlgType] of integer=(MB_ICONEXCLAMATION,MB_ICONHAND,MB_OK,MB_I CONQUESTION,MB_ICONASTERISK);
var
AMsgDlg:TForm;
AppSysMenu:Thandle;
begin
AMsgDlg:=CreateMessageDialog(msg,DlgType,Buttons);
AMsgDlg.HelpContext:=HelpCtx;
If Caption<>'' then
AMsgDlg.Caption:=Caption;
AppSysMenu:=GetSystemMenu(AMsgDlg.Handle,false);
If (Buttons<> mbYesNoCancel ) and
(Buttons<> mbOKCancel ) and
(Buttons<> mbAbortRetryIgnore ) then
EnableMenuItem(AppSysMenu,SC_CLOSE,MF_BYCOMMAND OR MF_GRAYED);
MESSAGEBEEP(Sounds[DlgType]);
Result:=AMsgDlg.ShowModal;
end;

[jirjirakk]

تشکرات آقای ربیعی :)