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

[fylo]

Moin,

ich habe div. Messages (z.B. WM_MOUSEMOVE, WM_LBUTTONDOWN, WM_LBUTTONUP usw.) als String vorliegen, jetzt möchte ich diese jedoch wieder als original Konstante/Integer, so wie in der Unit Messsages definiert, zurückhaben?

Muss ich das alles in einer großen if-then-Schleife durch gehen, z.B. wie im folgenden Code:

Delphi-Quellcode:

if s='WM_MOUSEMOVE' then msg := WMMOUSEMOVE;
if s='WM_LBUTTONDOWN' then msg := WM_LBUTTONDOWN;
if s='WM_LBUTTONUP' then msg := WM_LBUTTONUP;

oder gibt es da auch was eleganteres? z.B.

Delphi-Quellcode:

msg := stringToMessage(s); // <--- diese Funktion gibt es leider nicht :-(

[edit]
Ich hab mal den Titel geändert, damit er besser zum Post im DF passt.
[/edit]

[Muetze1]

1. Es gibt keine If-Schleifen!
2. Wenn er einmal in ein If reingegangen ist und den String umgewandelt hat, muss er dann wirklich noch alle anderen If Abfragen durchgehen? Schliessen die sich nicht irgendwie gegenseitig aus?
3. Du könntest eine Tabelle anlegen mit dem Ordinalwert und der String-Entsprechung.

[Hansa]

Zu 2. von Muetze. Es gibt "else". Rest : jetzt nicht mehr. :-D

[Muetze1]

Zitat:

Zitat von Hansa

Zu 2. von Muetze. Es gibt "else". Rest : jetzt nicht mehr. :-D

Ist mir bewusst und genau darauf wollte ich hinaus, aber eigentlich hatte ich gehofft er kommt selber drauf und lernt das dadurch eher für's nächste mal als dass es ihm vorgesagt wurde. Danke.

[fylo]

Zitat:

Zitat von Muetze1

1. Es gibt keine If-Schleifen!

Sorry ich meinte natürlich if-then-else-Konstrukte, war wohl doch schon einwenig spät :oops:

Zitat:

Zitat von Muetze1

2. Wenn er einmal in ein If reingegangen ist und den String umgewandelt hat, muss er dann wirklich noch alle anderen If Abfragen durchgehen?

Nein, wenn eine Entsprechung gefunden wurde, dann ist er und fertig und braucht nicht alle anderen auch noch prüfen.

Zitat:

Zitat von Muetze1

3. Du könntest eine Tabelle anlegen mit dem Ordinalwert und der String-Entsprechung.

Ist diese Tabelle nicht schon in einer Art in der Messages.pas in Form der Const-Definition drin?

[Muetze1]

Zitat:

Zitat von fylo

Nein, wenn eine Entsprechung gefunden wurde, dann ist er und fertig und braucht nicht alle anderen auch noch prüfen.

Na dann mal schnell überall ein ELSE einfügen...

Zitat:

Zitat von fylo

Ist diese Tabelle nicht schon in einer Art in der Messages.pas in Form der Const-Definition drin?

Nein, wozu auch? Die Messages.pas braucht nur die Ordinalwerte, die Strings interessieren sie nicht die Bohne. Windows versendet und verarbeitet Ordinalwerte für die Nachrichten und keine Strings. Das wäre viel zu aufwendig.

[fylo]

Zitat:

Zitat von Muetze1

Na dann mal schnell überall ein ELSE einfügen...

*done* Hab ich gemacht. Danke.

Zitat:

Zitat von Muetze1

Nein, wozu auch? Die Messages.pas braucht nur die Ordinalwerte, die Strings interessieren sie nicht die Bohne. Windows versendet und verarbeitet Ordinalwerte für die Nachrichten und keine Strings. Das wäre viel zu aufwendig.

Das ist mir schon klar, das da keine Strings versendet werden.

Muss ich mir diese Tabelle mit den Ordinalwerten jetzt selbst bauen oder gibt es da eine Funktion (das war ja eigentlich meine Frage)?

[Muetze1]

Zitat:

Zitat von fylo

Muss ich mir diese Tabelle mit den Ordinalwerten jetzt selbst bauen oder gibt es da eine Funktion (das war ja eigentlich meine Frage)?

Definitiv: JA, selbst bauen.

[SirThornberry]

Eventuell geht sogar selbst bauen nicht. Ich bin fast sicher das sich hinter einigen Konstanten der gleiche Ordinalwert verbirgt. Das heißt du kannst anhand des Ordinalwertes (der Message) nicht eindeutig auf den String schließen.

[Muetze1]

Zitat:

Zitat von SirThornberry

Eventuell geht sogar selbst bauen nicht. Ich bin fast sicher das sich hinter einigen Konstanten der gleiche Ordinalwert verbirgt. Das heißt du kannst anhand des Ordinalwertes (der Message) nicht eindeutig auf den String schließen.

Da er aber den String wieder zum Ordinalwert wandeln will, geht diese Richtung.

[_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:

Zitat von _frank_

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

Sehr gut :thumb: 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) :thumb: