delphi VCLコンポーネントを使用してWinApi Editコントロールをサブクラス化する方法はありますか？

Question

私はsubclassとWinApi edit controlをしようとしており、ペイント方法をオーバーライドしています。これまでのところ、SetWindowLong関数とGWL_WNDPROCフラグを使用して元のウィンドウプロシージャをオーバーライドすると、WM_PAINTメッセージが表示され、自分のペイントロジックを使用していますが、これはうまくいきましたが、 影 TEditコンポーネントとWinapi EDITコントロールの元のハンドルをDelphi TEditコンポーネントに渡します。そうすることで、シャドーTEditを使用してEDITコントロールのプロパティを取得および設定できます。それは可能ですか？

更新

私はこのコードで終了WindowHandleプロパティを使用しますが、動作していない程度レミーの提案（エディットコントロールの色を設定することが影響していない）に続き。 （TEditから派生）

type 
    TWinControlCracker= class(TWinControl); 

Var 
ShadowEdit : TEdit; 
newWndProc : Pointer; 
EditHandle : NativeInt; 
begin 
EditHandle:=$00320530;//this is the handle to the EDIT control 
ShadowEdit:=TEdit.Create(nil); 
TWinControlCracker(ShadowEdit).WindowHandle:=EditHandle; 
newWndProc := MakeObjectInstance(ShadowEdit.WindowProc); 
SetWindowLong(EditHandle, GWL_WNDPROC, NativeInt(newWndProc)); 
ShadowEdit.Color:=clLime; 
ShadowEdit.Refresh; 
end; 

Answer 1

TWinControlあなたは、非VCL HWNDを割り当てることができますパブリックWindowHandle性質を持っています。 TEditを破壊する前に、プロパティを0に戻してください。または、RecreateWnd()メソッドを内部的に呼び出す可能性のあるものを実行してください。そうしないと、WinAPIコントロールが破棄されます。そして、意味のあるものには、TEdit.Parentプロパティを必要とするものは使用しないでください。