Caption der Buttons Yes/No im Dialog MessageDlg ändern

[eddy]

Hallo sakura,

darf man denn nicht mal ein bischen Text sparen?

Hier steht doch:

Delphi-Quellcode:

begin 
  // Dlg erzeugen 
  aMsgDlg := CreateMessageDialog(Msg, DlgType, buttons); 
  CaptionIndex := 0; 
  // alle Objekte des Dialoges testen 
  for i := 0 to aMsgDlg.ComponentCount - 1 do begin 
    // wenn es ein Button ist, dann...
    if (aMsgDlg.Components[i] is TButton) then begin
      dlgButton := TButton(aMsgDlg.Components[i]);
      if CaptionIndex > High(Captions) then Break;
      // Beschriftung entsprechend Captions-array ändern
      dlgButton.Caption := Captions[CaptionIndex];
      dlgButton.Font.Style := [fsBold];
      Inc(CaptionIndex);
    end;
  end;
  Result := aMsgDlg.ShowModal;
end;

(aMsgDlg.Components[i] is TButton) im Quelltext drin.

Oder welche Bedeutung hat Dein Einwurf?

Wäre vielleicht noch interessant zu wissen, wie man die Farbe und den Style der eigentlichen Msg : string ändern kann. Eine Lösung dafür würde das ganze komplettieren.

mfg
eddy