فارسي كرن كليد ها در دستور Message Box

دوستان سلام
مي خواستم چجوري ميشه كليدهايي كه در پنجره پيغامي كه با دستور MessageBox ساخته مي شه رو فارسي كرد.
يه سوال ديگه هم داشتم
بعضي از پنجره هاي پيغامي هستن كه علاوه بر پيغامي كه دارن، شامل اشياء ديگه اي هم هستن مثل مثلا Combo box.
مي خواستم ببينم اين پنجره ها از پيش طراحي شده هستن مثل پنجره هايي كه با Message Box ساخته مي شن يا اينكه اين پنجره ها همون فرمهاي خودمون هستن كه برنامه نويس خودش طراحي مي كنه؟
موفق باشين
باي

رومکسی جان.
اون چیزی که شما میخواید به صورت آماده وجود نداره. یعنی من فقط دو نمونه Dialog آماده داره.
یکی MessageDlg و دیگری InputDlg هست. باقی حالات رو خودت باید یک فرم درست کنی و توی اون چیزایی که لازم داری رو بزاری.

سلام
ممنون مرد مباح عزيز
خوب با MessageDLG چجوري بايد كليدا رو به زبان فارسي در بيارم؟
موفق باشين
باي

با سلام

من بگم؟ :20:

اول تابع زیر رو کپی کن و جایی تو یونیتت بذار.

کد:

---

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('How much...?', mtConfirmation, mbOKCancel, ['I', 'U']) = mrOk then
    ShowMessage('Yes')
  else
    ShowMessage('No');
end;

---

من در پيوند زير در اين خصوص توضيحي دادم. فکر کنم به دردتون بخوره. چون بسيار آسونه و نياز به کد نويسي خاصي نداره. فقط اسم ديالوگ رو عوض کنيد.

کد:

---

http://www.hamedvahedi.com/index.aspx?rn=NSXL3PWZJ2w_r

---