この発言は
#01247　かつぼー        さんのRE:読み仮名取得コンポーネント
に対するコメントです




まだダメでした。

>procedure TYomi.Notification(AComponent: TComponent; Operation: TOperation);
>begin
>  inherited Notification(AComponent, Operation);
>  if not (csDesigning in ComponentState) and  //追加
>     (Operation = opRemove) and
>     (AComponent <> nil) and
>     (AComponent = FControl) then
>  begin
>//    SetWindowLong(FControl.Handle, GWL_WNDPROC, Longint(FOldWinProc));
>    FreeObjectInstance(FOldWinProc);
　　　　↑この行を消さないとだめなようです。
SetWindowLongで戻してやろうとするとエラーになるので、
しょうがないのでこちらで解放してやろうとしても、エラーがでます。
こういうときはどうすればいいんでしょうか。
ほっといても大丈夫でしょうか。


                                     01/01/22(月)  かつぼー(CQU00157)
 



Original document by かつぼー        氏 ID:(CQU00157)

ここにあるドキュメントは NIFTY SERVEの Delphi Users' Forum の16番会議室「玉石混淆みんなで作るSample蔵」に投稿されたサンプルです。これらのサンプルはボーランド株式会社がサポートする公式のものではありません。また、必ずしも動作が検証されているものではありません。これらのサンプルを使用したことに起因するいかなる損害も投稿者、およびフォーラムスタッフはその責めを負いません。使用者のリスクの範疇でご使用下さい。