Konuyu Oyla:
  • Derecelendirme: 0/5 - 0 oy
  • 1
  • 2
  • 3
  • 4
  • 5
MessageDialog'ları windows a bağlı kalmadan Türkçe yapmak
#1
Merhaba 
Uzun zamandır kullandığım bir fonksiyonu herkes için paylaşmak istedim. Bu fonksiyon ile windows bölgesel ayarlarına ve diline bağlı kalmadan MessageDialog'ları Türkçe olarak veya revize ederseniz istediğiniz her hangi bir dilde kullanabilirsiniz.

function MessageDlgTranslated(const Msg: string; DlgType: TMsgDlgType; Buttons:
 TMsgDlgButtons; DefaultButton: TMsgDlgBtn; HelpCtx: Longint = 0): TModalResult;
begin
 with CreateMessageDialog(Msg, DlgType, Buttons) do
 try
   Position := poDesktopCenter;
   case DlgType of
     mtWarning: Caption := 'Uyarı';
     mtError: Caption := 'Hata';
     mtInformation: Caption := 'Bilgilendirme';
     mtConfirmation: Caption := 'Onaylama';
   end;
   with FindChildControl('Yes') as TButton do
   begin
     Caption := 'Evet';
     if DefaultButton = mbYes then
       TabOrder := 0;
   end;
   with FindChildControl('No') as TButton do
   begin
     Caption := 'Hayır';
     if DefaultButton = mbNo then
       TabOrder := 0;
   end;
   with FindChildControl('Cancel') as TButton do
   begin
     Caption := 'Vazgeç';
     if DefaultButton = mbCancel then
       TabOrder := 0;
   end;
   with FindChildControl('OK') as TButton do
   begin
     Caption := 'Tamam';
     if DefaultButton = mbOK then
       TabOrder := 0;
   end;
   with FindChildControl('Abort') as TButton do
   begin
     Caption := 'İptal Et';
     if DefaultButton = mbAbort then
       TabOrder := 0;
   end;
   with FindChildControl('Retry') as TButton do
   begin
     Caption := 'Tekrar';
     if DefaultButton = mbRetry then
       TabOrder := 0;
   end;
   with FindChildControl('Ignore') as TButton do
   begin
     Caption := 'Es Geç';
     if DefaultButton = mbIgnore then
       TabOrder := 0;
   end;
   with FindChildControl('Yes to All') as TButton do
   begin
     Caption := 'Tümüne Evet';
     if DefaultButton = mbYesToAll then
       TabOrder := 0;
   end;
   with FindChildControl('No to All') as TButton do
   begin
     Caption := 'Tümüne Hayır';
     if DefaultButton = mbNoToAll then
       TabOrder := 0;
   end;
   with FindChildControl('Help') as TButton do
   begin
     Caption := 'Yardım';
     if DefaultButton = mbHelp then
       TabOrder := 0;
   end;
   Result := ShowModal;
 finally
   Free;
 end;
end;

Kullanımı : 

if MessageDlgTranslated('Kesim işlemi iptal edilecek onaylıyor musunuz?',mtConfirmation,[mbYes, mbNo],mbYes,0) = mrYes then
Cevapla


Konu ile Alakalı Benzer Konular
Konular Yazar Yorumlar Okunma Son Yorum
  Listbox a Türkçe karakterleri atamak maydin60 2 269 21-04-2021, Saat: 21:52
Son Yorum: maydin60
  Datasnap rest service türkçe karakter sorunu hakkında yanniosman 2 360 01-04-2021, Saat: 01:11
Son Yorum: yanniosman
  windows üzerinde çalışan programları gruplamak yanniosman 2 360 17-03-2021, Saat: 18:39
Son Yorum: yanniosman
  $IFNDEF {$IFDEF WINDOWS} hk. sadikacar60 2 325 17-03-2021, Saat: 09:17
Son Yorum: sadikacar60
  windows 10 üzerinde klavye mouse ve dokunmatiği devre dışı bırakmak suleymangul0 1 440 09-03-2021, Saat: 20:05
Son Yorum: Tuğrul HELVACI



Konuyu Okuyanlar: 1 Ziyaretçi