Eurekalog-Fehlermeldung > Strg+C > Meldung als Text im Speicher

[himitsu]

Moin,

schafft EurekaLog 7 es inzwischen, daß sein Fehlerdialog sich endlich mal wie ein "normaler" Delphi-/Windows-Dialog verhält?

Hab hier nur EurekaLog 6.1 und es ist echt nervig, wenn man Strg+C drückt und dann nix in der Zwischenablage landet.
Und den Text aus dem Erweiterten Dialog rauszukopieren ist auch keine große Freude.

ShowMessage('Hallo Welt');

Code:

---------------------------
Test
---------------------------
Hallo Welt
---------------------------
OK
---------------------------

Selbst andere Programme/Sprachen können sowas Einfaches.

Code:

---------------------------
Notepad2-mod
---------------------------
The current file has been modified by an external program. Reload?
---------------------------
Ja   Nein   
---------------------------

(irgendwie komm ich grade mit unseren alten Zugangsdaten nicht ins neue Forum, um dort mal zu fragen. Und der, der es hoffentlich noch weiß, ist natürlich nicht in der Stadt)

[Sherlock]

Das ist eine total interessante Sache! Was muss man eigentlich unter der Haube tun, damit ein Dialog sich auf diese Art verhält?

Sherlock

[Bernhard Geyer]

Zitat von Sherlock:

Das ist eine total interessante Sache! Was muss man eigentlich unter der Haube tun, damit ein Dialog sich auf diese Art verhält?

Sherlock

Auf Strg + C reagieren und den Text für die Zwischenablage so aufbauen wie man meint das es sinnvoll ist.
Habe ich auch mal beim Elpack so eingebaut.

[himitsu]

Jupp.

Windows-Dialoge machen das von selbst (DefaultHandler vom Windows)
> z.B. MessageBox und TaskDialogIndirect

und ansonsten muß man das selber implementieren. (oder erbt von Dialogen, welche das bereits können)
> z.B. ShowMessage, CreateMessageDialog, TMessageForm, TTaskDialog

Die alte Implementation von ShowMessage und CreateMessageDialog ging auf TMessageForm, wo Borland es selber machte und seit Vista geht das auf TaskDialogIndirect.
> siehe TMessageForm.CustomKeyDown > TMessageForm.GetFormText > TMessageForm.WriteToClipBoard

Also einfach von TMessageForm erben und GetFormText überschreiben.