Forum: Programmieren allgemein
by norwegen60,
23. Dez 2022
Hallo zusammen,
habe es genauso gemacht. War mir letztlcih auch lieber als die Standard-Results zu überschreiben
PS: + statt * ModalResult := i + 100;
Danke, Grüße und schöne Weihnachten
Gerd
Forum: Programmieren allgemein
by norwegen60,
23. Dez 2022
Ein kleines Problem ist doch aufgetreten.
Wenn der Benutzer das Fenster einfach nur wieder schließt, möchte ich festlegen, welches ModalResult zurück geliefert wird. In meinem Beispiel sollte das Cancel sein, wenn es diesen Button gibt
Mein Code sieht so aus
function MyMessageDlg(const sMsg: String; aDlgTypt: TMsgDlgType; sArrCaption: array of String;
sDlgCaption: String = ''): Integer;...
Forum: Programmieren allgemein
by norwegen60,
23. Dez 2022
Mmmh, weil ich TTaskDialog noch nicht kannte? Ich habs ausprobiert und das ist genau das richtige.
Habe festgestellt, dass der Index mir eh nur zufällig genutzt hätte. Ich war der irrigen Meinung, dass die Buttons in der Reihenfolge angezeigt werden, wie sie in MyMessageDlg('Test der eigenen Button.', mtConfirmation, , , 'Dialog Test') gelistet sind. Da das aber ja gar nicht der Fall ist, wäre...
Forum: Programmieren allgemein
by norwegen60,
23. Dez 2022
Danke für die Tips.
Wie das mit dem Tag funtionieren sollte ist mir nicht ganz klar. Beim Klick auf liefert aMsgdlg.Showmodal ja das Ergebnis mrYes = 6. Wie soll ich mit diesem Result auf den Tag des Buttons kommen. Wenn ich den Button hätte, könnte ich ja auch gleich auf Button.Caption zugreifen.
Ich hatte gehofft es gibt so was wie Index := aButtons.IndexOf(Result) um den Index zu...
Forum: Programmieren allgemein
by norwegen60,
22. Dez 2022
Hallo
ich habe über
function MyMessageDlg(sMsg: String; aDlgTypt: TMsgDlgType; aButtons: TMsgDlgButtons; sArrCaption: array of String; sDlgCaption: String): Integer;
// *****************************************************************************************************************************************
// Eigene MessageBox mit selbst definierbaren Buttons anzeigen
var
aMsgdlg: TForm;...