寫了一個元件大概如下，元件放在form上，希望能在元件Create時，換掉form的createWnd程序
換成自已的MyCreateWnd，而在MyCreateWnd裏先call form原來的createWnd，在做一些自已要做的特別處理
看了站上一些關於TMethod的文章，試了半天還是試不出來，還請各位大大相助，謝謝    TTest= class(TComponent)
public
  constructor Create(AOwner: TComponent);
  Procedure MyCreateWnd;
end;    constructor TTest.Create(AOwner: TComponent);
begin
  inherited Create(AOwner);
  
  //計劃在這換掉form的createWnd，用MyCreateWnd取代    end;    Procedure TTest.MyCreateWnd;
begin
  1.先做form原來的createWnd;
  
  2.dosomething;
end; 

TForm1 = class(Form1.TForm)
  procedure CreateWnd;override;
end;    procedure TForm1.CreateWnd;
begin
  Inherited CreateWnd;
  ...
  ...
end;

引言:

寫了一個元件大概如下，元件放在form上，希望能在元件Create時，換掉form的createWnd程序
換成自已的MyCreateWnd，而在MyCreateWnd裏先call form原來的createWnd，在做一些自已要做的特別處理
看了站上一些關於TMethod的文章，試了半天還是試不出來，還請各位大大相助，謝謝    TTest= class(TComponent)
public
  constructor Create(AOwner: TComponent);
  Procedure MyCreateWnd;
end;    constructor TTest.Create(AOwner: TComponent);
begin
  inherited Create(AOwner);
  
  //計劃在這換掉form的createWnd，用MyCreateWnd取代

1.若Form還沒建立，則會發生違規存取
2.若Form已創建，則CreateWind已經發生過了
不知要更改CreateWnd啥東西?使用SetWindowLong偵測事件不知可否?
end;    Procedure TTest.MyCreateWnd;
begin
  1.先做form原來的createWnd;
  
  2.dosomething;
end;