čia (njusuose) gavau, čia ir gražinu

function MsgBoxLt(const Msg: PChar; DlgType: TMsgDlgType;
                    Buttons: TMsgDlgButtons):tmodalresult;
var
  f: TForm;
  i : byte;
begin
  f:= Dialogs.CreateMessageDialog(Msg,DlgType,Buttons);
    //f.Caption := 'Informacija';
  (f.Controls[1] as TCustomLabel).Width := f.ClientWidth -
                                     (f.Controls[1] as 
TCustomLabel).Left -10;
   TLabel(f.Controls[1] ).caption  := Msg;
  case DlgType of
    mtInformation  : f.Caption := 'Informacija';
    mtCustom       : f.Caption := '';
    mtWarning      : f.Caption := 'Dėmesio!';
    mtError        : f.Caption := 'Klaida!';
    mtConfirmation : f.Caption := 'Patvirtinkite!';
  end; {CASE}
  for i:= 2 to f.ControlCount-1 do
    begin
      with (f.Controls[i] as TButton) do
        case ModalResult of
          mrYes      : Caption := '&Taip';
          mrNo       : Caption := '&Ne';
          mrCancel   : Caption := 'Nutraukti';
          mrOK       : Caption := '&Tęsti';
          mrAbort    : Caption := '&Nutraukti';
          mrRetry    : Caption := '&Pakartoti';
          mrIgnore   : Caption := '&Ignoruoti';
          mrAll      : Caption := '&Viską';
          mrNoToAll  : Caption := '&Taip visiems';
          mrYesToAll : Caption := '&Ne visiems';
        end; {CASE}
    end; {FOR}
  f.ShowModal;
  Result := f.ModalResult;
end;



"Dex" <virginilijus@one.lt> wrote in message 
news:gsenq9$lmv$1@trimpas.omnitel.net...
> Sveiki,
>
> daznai naudoju MessageDlg('Blabla', mtConfirmation, [mbYes, mbNo, 
> mbCancel], 0), gal zinot lengvu neskausmingu budu, kaip sulietuvinti 
> mygtuku pavadinimus siame dialoge? Vietoj Yes  - Taip ir t.t.
>
> Yra variantas pasirasyti savo dialoga, bet gal paprasciau kazka zinot?
>
> Dex