Custom Message-Dialogue Design?

[haentschman]

Moin...

Solche Entscheidungen hatte ich auch mal... Letztendlich habe ich mich für eine eigene Form entschieden. Die kann man auch ableiten zu DialogXY...
4 Gründe:
1. Der Dialog wird entsprechend der Zeile in der Breite angepaßt...keine Vorschübe wo ich sie nicht mag.
2. Beliebige Controls möglich.
3. Dialog Design wie die Anwendung.
4. Internationalisierung der Texte vor Allem auf den Buttons.

Delphi-Quellcode:

procedure TfoMain.FormCloseQuery(Sender: TObject; var CanClose: Boolean);
var
  Dialog: TfoMessage;
begin
  if FLogic.Preferences.Common.ValidationClose then
  begin
    Dialog := TfoMessage.Create(nil);
    try
      Dialog.MessageLines.Add('Möchten Sie wirklich beenden?');
      CanClose := (Dialog.ShowMessage('Beenden', vmtQuestion, [buYes, buNo]) = reYes);
    finally
      Dialog.Free;
    end;
  end;
end;

Zur Frage:
Persönlich würde die Variante 3 bevorzugen. Das Panel ist eine Abgrenzung zum Text.