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.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]