با سلام
اگر ممکنه توضیح دهید چگونه می توان دکمه های موجود در پیام های برنامه را فارسی کرد .
مثلا اگر از تابع ShowMessage استفاده کنید یک دکمه با عنوان Ok به شما نمایش میدهد در حالی که باید به جای Ok از تائید استفاده میشد.
با تشکر
Printable View
با سلام
اگر ممکنه توضیح دهید چگونه می توان دکمه های موجود در پیام های برنامه را فارسی کرد .
مثلا اگر از تابع ShowMessage استفاده کنید یک دکمه با عنوان Ok به شما نمایش میدهد در حالی که باید به جای Ok از تائید استفاده میشد.
با تشکر
میتونی از کد زیر استفاده کنی :
کد:function MyMessageDialog(const Msg: string; DlgType: TMsgDlgType; Buttons: TMsgDlgButtons; Captions: array of string): Integer;
var
aMsgDlg: TForm;
i: Integer;
dlgButton: TButton;
CaptionIndex: Integer;
begin
aMsgDlg := CreateMessageDialog(Msg, DlgType, Buttons);
captionIndex := 0;
for i := 0 to aMsgDlg.ComponentCount - 1 do
begin
if (aMsgDlg.Components[i] is TButton) then
begin
dlgButton := TButton(aMsgDlg.Components[i]);
if CaptionIndex > High(Captions) then Break;
dlgButton.Caption := Captions[CaptionIndex];
Inc(CaptionIndex);
end;
end;
Result := aMsgDlg.ShowModal;
end;
procedure TForm1.Button1Click(Sender: TObject);
begin
if MyMessageDialog('انتخاب شما ؟', mtConfirmation, mbOKCancel, ['تاييد', 'انصراف']) = mrOk then
ShowMessage('بله')
else
ShowMessage('خير');
end;
نقل قول:
سلام
دوست عزیز یک فایل با عنوان Consts.pas تو پوشه Borland\Delphi7\Source\Vcl وجود داره میتونی برای کارت از اون استفاده کنی .