[ fusion3 @ 09.09.2006. 14:37 ] @
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?
[ savkic @ 09.09.2006. 15:01 ] @
> 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...)
[ Miloš Baić @ 09.09.2006. 15:49 ] @
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
[ fusion3 @ 09.09.2006. 19:06 ] @
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?