<html>
<head>
<style><!--
.hmmessage P
{
margin:0px;
padding:0px
}
body.hmmessage
{
font-size: 10pt;
font-family:Tahoma
}
--></style>
</head>
<body class='hmmessage'>
Hi All,<br><br>I am trying to port some Delphi 5 or 7 (cannot recall which) to Lazarus.<br><br>What do I change WM_USER to? I am getting Identifier not found.<br><br>Here is the code:<br><br>main.pas<br><br>const<br> WM_USER_APPLICATION_MINIMIZE = WM_USER+1;<br><br>// identifier not found WM_USER<br><br>type<br>[...]<br> private<br> { Private declarations }<br> procedure OnUserAppMin(var M: TMessage);<br> message WM_USER_APPLICATION_MINIMIZE;<br><br>procedure TForm1.OnUserAppMin(var M: TMessage);<br>begin<br> Application.Minimize;<br>end; { OnUserAppMin }<br>{----------------------------------------------------------}<br><br>about.pas<br><br>procedure TForm2.FormKeyDown(Sender: TObject; var Key: Word;<br> Shift: TShiftState);<br>begin<br> if (key = VK_ESCAPE) then<br> begin<br> key := 0;<br> PostMessage(Form1.Handle, WM_USER_APPLICATION_MINIMIZE, 0, 0);<br><br>// error : Identifier not found WM_USER_APPLICATION_MINIMIZE<br><br> close;<br> end;<br>end; { FormKeyDown }<br>{----------------------------------------------------------}<br><br> </body>
</html>