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