关于type的问题的后继----消息声明

Question

interfaceuses
 ...
//自定义消息
const WM_PressOK = WM_USER+100;type
  TMainForm = class(TForm)
  ...
public
  procedure PressOK(var Msg: TMessage); message WM_PressOK;
  //这里出错,出错信息如下：
  //Unsatisfied forward or external declaration:'TMainForm.PressOK'
end;type 
   MyCall = function():integer;stdcall;var
  MainForm: TMainForm;implementation
...
----------------------------------------------------------
请问如何解决？在线等待。 

Answer 1

implementation{*.dfm}procedure  TMainForm.PressOK(var Msg: TMessage); 
begin
  ...
end;

Answer 2

你只写了定义，还没有写实现，当然会出错了!
在程序中写上
procedure  TMainForm.PressOK(var Msg: TMessage); 
begin
  //你的处理语句
end;
就好了！

Answer 3

procedure PressOK(var Msg: TMessage); message WM_PressOK;将你的光标放在该语句上面然后单击左键，在按Ctrl+Shift+C 就会自动添加实现框架了。