Einzelnen Beitrag anzeigen

Benutzerbild von haentschman
haentschman

Registriert seit: 24. Okt 2006
Ort: Seifhennersdorf / Sachsen
5.388 Beiträge
 
Delphi 12 Athens
 
#5

AW: Custom Message-Dialogue Design?

  Alt 21. Mär 2017, 06:33
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.
Miniaturansicht angehängter Grafiken
fenster1.png   fenster2.png  

Geändert von haentschman (21. Mär 2017 um 06:56 Uhr)
  Mit Zitat antworten Zitat