OpenDialog Penceresinin Sabitlerinin Değiştirilmesi

[NeverFear]

Forumlarda aramama rağmen bulamadım.
Dialog pencerelerini çalıştırdığımızda açılan pencerelerdeki; Konum : , Dosya adı : , Dosya türü : ... gibi Label caption ve Aç, İptal ... gibi buton caption içeriklerini nasıl değiştirebilirim.
Örn.: Dosya adı : ifadesini program içinden nasıl Uygulama adı : ... şeklinde değiştirebilirim.

[ikutluay]

ya kendi kompoentini türet yada torry netten dialog komponentlerine bak. son ihtimal ise yanlış hatırlamıyorum ise const.pas dosyasında metinlerin olduğu

[NeverFear]

Consts.pas dosyasını tamamiyle türkçeleştirmiştim zaten ve o dosya içinde istediğim yok. torry net'te ise, yapmak istediğimi gerçekleştirecek bileşen veya kod örneği yok.
Aşağıdaki adreste ise benzer bir kodlama buldum, ancak henüz deneyemedim.
http://forum.doom9.org/archive/index.php/t-36215.html

[csunguray]

Const.pas ı Türkçe'leştirdiniz ama derlediniz mi? Consts.pas normalde source klasöründe bulunur. Onu komut satırından "dcc32 consts.pas" komutuyla derledikten sonra oluşan dcu dosyasını units klasörüne kopyalamanız lazım.

[NeverFear]

elbette derledim. hatta diğer consts (örn.dbconsts ... vb.) içerenleri de türkçeleştirip derledim. burada bir sorun yok.
hatta, aşağıdaki linki de inceleyebilirsin.
viewtopic.php?f=2&t=20770&p=118478&hili ... ar#p118478

[Battosai]

const dosyası ile olacak iş değil zira dialog penceresi windows'a ait bir api ama müdehale edilmeyecek değil tabi bazı örneklerine denk geliyoruz...Aramaya devam derim hem bize de faydası olur Ama yapmak istediğin değişiklik biraz luzumsuz geldi bana yani oraya bir buton yerleştirmek veya bazı örneklerde olduğu gibi farklı bir edit koymak gibi bişey olsa uğraşa değer derdim...çok önemli değilse uğraşma derim zira herkez biliyor opendialog un ne işe yaradığını windows kullanıcısı yabancı değil yani...

[NeverFear]

OpenDialog penceresinin sağ alt köşesindeki "Aç" ve "İptal" tuşlarının başlıklarının değiştirilmesi ile ilgili kodlamaları buldum ve burada paylaşmak istedim (sıra diğerlerine geldi).

Kod: Tümünü seç

procedure TForm1.OpenDialog1Show(Sender: TObject);
begin
   {"OPEN" - > "Aç"}
   SetDlgItemText (GetParent (OpenDialog1.Handle),
                   IDOK, PChar ('&Aufmachen')) ;
   {"Cancel" - > "İptal"}
   SetDlgItemText (GetParent (OpenDialog1.Handle),
                   IDCANCEL, PChar ('&Widerruf')) ;
end;

procedure TForm1.Button1Click(Sender: TObject);
begin
  if OpenDialog1.Execute then OpenDialog1Show(Button1);
end;