編譯時出現訊息: [Warning] rtbUnit1.pas(39): Method 'WndProc' hides virtual method of base type 'TCustomForm' 程式碼如下: 
<textarea class="delphi" rows="10" cols="60" name="code"> public { Public declarations } procedure WndProc(var Message: TMessage); end; : procedure TForm1.WndProc(var Message: TMessage); begin // if (Message.Msg = wInitDialogMessage)and (inttostr(Message.wParam) <> inttostr(Handle)) then begin ReplyMessage(0); case Message.lParam of wpBeClose : begin form1.close; end;(* for close *) end; // case end; // if inherited WndProc(Message); end; </textarea>
特殊情形: delphi5 Enterprise 使用quickreport 如無使用Quickreport不會出現Warning

------
努力會更接近成功

該警示訊息是說 TForm1 的父代 TCustomForm 有宣告為 Virtual 的 WndProc method
而 TForm1 繼承了 WndProc method, 卻沒有 override 的方式
解決方式是在 TForm1 的 WndProc 宣告處加上 override 字樣, 如下:
public
procedure WndProc(var Message: TMessage); override;
end;

謝謝您的指導！

------
努力會更接近成功