Message-Name in Windows-Message-Code zurückwandeln

[_frank_]

auch, wenn ich den Sinn noch nicht ganz verstehe...wozu braucht man sowas?

für den umgekehrten fall hat sich Narses aus dem DF schon mal die Mühe gemacht:
http://www.delphi-library.de/viewtopic.php?p=441656
ist ganz hilfreich beim debuggen

da oben ist eine schöne Liste der Messages. ich würde jetzt hergehen und diese liste z.b. in ne Stringliste packen (1 Message pro Zeile), diese durchlaufen und mir den code generieren lassen
geht natürlich auch mit einem RegEx-fähigen Editor (ungetested):

suchstring: ^(.*)$
ersetzen durch: if s='\1' then msg:=\1 else

Edit: damit sich nicht jeder die Mühe machen muss, hab ich das jetzt mal gemacht

[fylo]

Zitat von _frank_:

damit sich nicht jeder die Mühe machen muss, hab ich das jetzt mal gemacht

Sehr gut das ist genau das was ich gesucht habe.

Ich hab es noch ein wenig umgebaut, eine Unit draus gemacht und einige Messages "deaktiviert", weil mein Delphi 7 die noch nicht kennt und ich hatte jetzt keine Zeit/Lust erst noch umständliche {$IFDEF}'s usw. einzubauen. Eine Unit hab ich gefunden, in der eine Menge Konstanten für RichEdit2 definiert sind. Vielen Dank an dieser Stelle an Flocke (Flocke's Garage)