[es] - Kako promeniti natpise na dugmadima okvira za dijalog?

fusion3

Član broj: 109920
Poruke: 40
213.149.123.*

Profil

Kako promeniti natpise na dugmadima okvira za dijalog?

^{09.09.2006. u 14:37 - pre 214 meseci}

Da li je moguce promeniti natpis dugmadi 'Yes' i 'No' u, recimo, 'Da' ili 'Ne' na nekom dijalogu npr mtConfirmation koji sadrzi button-e mbYes i mbNo?
Je li to neko uspeo da uradi?

Odgovor na temu

savkic
Igor Savkić

Moderator
Član broj: 92186
Poruke: 2739

+92 Profil

Re: Kako promeniti natpise na dugmadima okvira za dijalog?

^{09.09.2006. u 15:01 - pre 214 meseci}

> Da li je moguce promeniti natpis dugmadi 'Yes' i 'No' u, recimo, 'Da' ili 'Ne' na nekom dijalogu npr mtConfirmation
> koji sadrzi button-e mbYes i mbNo?

Moguće je, treba da koristiš funkciju CreateMessageDlg koja će ti vratiti formu sa već kreiranim kontrolama sa default izgledom, dalje možeš proći kroz sve kontrole na toj formi (Form.Controls) i kada nađeš TButton uradiš promenu koju želiš. Drugo bolje rešenje je da napraviš svoju alternativnu formu dijalog u koju ćeš ugraditi sve što ti treba (npr. natpisi sa našim slovima, prevedene opcije, custom izgled auto zatvaranja...)

Do not be a help vampire (http://slash7.com/pages/vampires), use the google.

How to ask questions the smart way:
http://www.catb.org/~esr/faqs/smart-questions.html
http://solair.eunet.rs/~fangor...stions/smart-questions.sr.html

Odgovor na temu

Miloš Baić
Miloš Baić
ERP (Dynamics NAV) programer
Beograd

Član broj: 72468
Poruke: 1155
*.dialup.neobee.net.

Profil

Re: Kako promeniti natpise na dugmadima okvira za dijalog?

^{09.09.2006. u 15:49 - pre 214 meseci}

Pozdrav,

postaviš TButton, recimo, i odradiš OnClick:

Code:

...
var
  Dlg: TForm;
  Rslt: Integer;
begin
  Dlg := CreateMessageDialog('Da li ste sigurni da zelite izaci iz programa?', mtWarning,
    [mbYes, mbNo, mbCancel]);
  { change the messagedlg caption }
  Dlg.Caption := 'Upozorenje!';
  {change the button texts }
  TButton(Dlg.FindComponent('Yes')).Caption := 'Da';
  TButton(Dlg.FindComponent('No')).Caption := 'Ne';
  TButton(Dlg.FindComponent('Cancel')).Caption := 'Odustajem';
  Rslt := Dlg.ShowModal;
  Case Rslt of
    2:  ;
    6: Form1.Close;
    7: ShowMessage('Pa, ipak necu :D!');
  end
...

Integer kodovi za dugmad:

Citat:

OK = 1
CANCEL = 2
ABORT = 3
RETRY = 4
IGNORE = 5
YES = 6
NO = 7
CLOSE = 8
IDHELP = 9
TRYAGAIN = 10
CONTINUE = 11

Someone's sitting in the shade today because someone planted a tree a long time ago.

Odgovor na temu

fusion3

Član broj: 109920
Poruke: 40
213.149.123.*

Profil

Re: Kako promeniti natpise na dugmadima okvira za dijalog?

^{09.09.2006. u 19:06 - pre 214 meseci}

Hvala puno ovo je OK.
Ja sam koristio MessageDlg poziv za dijalog - za ovaj CreateMessageDialog nisam uopste znao.

Samo jos nesto, da li mogu poziv CreateMessageDialog da koristim bez dodeljivanja nekoj promenljivoj tipa TForm?

Odgovor na temu