Delphi XE5 de mesaj butonlarını Türkçeleştirmek

[izmirlikemal]

Merhaba Dostlarım.
Delphi XE5 de "Yes" ,"Ok", "Cancel" gibi İngilizce mesaj bütonlarını nasıl türkçeye çeviririz. Lütfen örnekleyerek anlatırmınız.

[dogan]

Bir zamanlar bende ilgilenmiştim ama çok kurcalamadım sıkıntı verdi belki senin işine yarar...

Kod: Tümünü seç

procedure TForm3.Button4Click(Sender: TObject);
Var
  AMsgDialog: TForm;
  AEdit: TEdit;
begin
  AMsgDialog := CreateMessageDialog(' Lütfen Yeni Kayıt İçin Giriş Yapınız!',
    mtCustom, [mbYes, mbNo]);
  TButton(AMsgDialog.FindComponent('Yes')).Caption := 'Kaydet';
  TButton(AMsgDialog.FindComponent('Yes')).Height := 25;
  TButton(AMsgDialog.FindComponent('Yes')).Width := 75;
  TButton(AMsgDialog.FindComponent('Yes')).Top := 75;
  TButton(AMsgDialog.FindComponent('Yes')).Left := 30;
  TButton(AMsgDialog.FindComponent('Yes')).Cursor := crHandPoint;

  TButton(AMsgDialog.FindComponent('No')).Caption := 'İptal';
  TButton(AMsgDialog.FindComponent('No')).Height := 25;
  TButton(AMsgDialog.FindComponent('No')).Width := 75;
  TButton(AMsgDialog.FindComponent('No')).Top := 75;
  TButton(AMsgDialog.FindComponent('No')).Left := 115;
  TButton(AMsgDialog.FindComponent('No')).Cursor := crHandPoint;

  AEdit := TEdit.Create(AMsgDialog);

  with AMsgDialog do
    try
      Caption := 'Yeni Kayıt';
      Height := 150;
      Width := 240;

      With AEdit do
      begin
        Parent := AMsgDialog;
        AutoSize := False;
        MaxLength := 100;
        Top := 40;
        Left := 10;
        Height := 25;
        Width := 200;
      end;

      if (ShowModal = ID_YES) then
      begin
        Form2.Caption := 'dddddddddddddddddd';
      end;
    finally
      // Free;
    end;
end;

[xozcanx]

Merhaba;
Programın çalıştığı makinenin işletim sistemi Türkçe ise aşağıdaki şekilde de kullanabilirsiniz. Kolay gelsin.

Kod: Tümünü seç

var
  mesaj:integer;
Begin
  mesaj:=Application.Messagebox('Çıkış Yapmak İstediğinize Emin misiniz?','MESAJ BAŞLIĞI!',MB_OKCANCEL+MB_ICONASTERISK);
  if mesaj=ID_OK Then
  Close;
End;

[izmirlikemal]

xozcanx ve dogan rumuzlu arkadaşlarım her ikinize de Verdiğiniz değerli bilgiler için teşekkür ederim.