来来来！！！！！！！！！！1(100分)

function WindowProc(hWnd,Msg,wParam,lParam:Longint):Longint; stdcall;<br>var<br>wClass: &nbsp; TWndClass;<br>&nbsp;begin<br>&nbsp;RegisterClass(wClass);<br>end;<br><br>&nbsp;RegisterClass(wClass);<br><br>为什么说我类型不同？？怎么办？

帮助里面是这样的<br>procedure RegisterClass(AClass: TPersistentClass);<br><br>你的wclass定义成TPersistentClass类型的就可以了<br><br>要不RegisterClass(wClass);改成RegisterClass(@wClass);也许也行：）

没有那样注册的。要指定具体的类。

to 来如风<br>你那样行是行，但是我后面还有别的东西，再拿利用你的这种方法就不行了！<br>to:xushufa<br>可以这样注册的，我一点编译过，只不过我现在比以前多了个窗体！<br><br>

RegisterClass(@wClass);<br>这样也不行吗？没有改变你的类型啊

unit Unit1;<br><br>interface<br><br>uses<br>&nbsp; Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,<br>&nbsp; Dialogs, StdCtrls;<br><br>type<br>&nbsp; TForm1 = class(TForm)<br>&nbsp; &nbsp; Button1: TButton;<br>&nbsp; &nbsp; procedure Button1Click(Sender: TObject);<br>&nbsp; private<br>&nbsp; &nbsp; { Private declarations }<br>&nbsp; public<br>&nbsp; &nbsp; { Public declarations }<br>&nbsp; end;<br>type<br><br>&nbsp; TF_standClass = class of TForm1;<br>var<br>&nbsp; Form1: TForm1;<br><br>implementation<br><br>{$R *.dfm}<br><br>procedure TForm1.Button1Click(Sender: TObject);<br>var<br>&nbsp; wClass: TF_standClass;<br>begin<br>&nbsp; RegisterClass(wClass);<br>end;<br><br>end.<br><br>

接受答案了.