Abgeänderte MessageDlg Func- Breitere Buttons, Caption, Icon

[Robert_G]

Warum änderst du nicht einfach die Breite?

Delphi-Quellcode:

    if (aMsgDlg.Components[i] is TButton) then 
      with aMsgDlg.Components[i] as TButton do
      begin 
        if CaptionIndex > High(Captions) then Break; 

        { Give a new caption from our Captions array} 
        { Schreibe Beschriftung entsprechend Captions array}

        Caption := Captions[CaptionIndex]; 
        Width   := [DeinNeueBreite]; // <---

        Inc(CaptionIndex); 
      end;

p.s.: Simples Copy'nPaste von Code bringt dich nicht weiter...