引言: 請教各位前輩 自己寫 VCL 如(MyButton)元件如何在Form或其它物件的 OnCreate 及 OnClick 事件加入程式 ?? 自己寫的 VCL 元件,如 MyButton 1.如何為加入這元件的Form 在OnCreate 及 OnClick 加入事件 例:如Form加入 VCL 元件後, 當FORM 的 OnClick 事件會先執行 VCL的程式再執行本自的程式 2.和上面相同但是要控制 Form 上的其它元件 的 OnClick 謝謝各位前輩!! 有了你這世界變的更美好!!

 
procedure TDosMove.SetKeyEvent;
begin
  // Intercept with OnKeyDown event and OnKeyPress event of 'Owner'      // Run Time
  if not (csDesigning in ComponentState) then
  begin
    if FActive then
    begin
      // 設定
      FOwnerKeyDown := (Self.Owner as TForm).OnKeyDown;
      (Self.Owner as TForm).OnKeyDown := NewKeyDown;
      FOwnerKeyPress := (Self.Owner as TForm).OnKeyPress;
      (Self.Owner as TForm).OnKeyPress := NewKeyPress;
    end else
    begin
      // 還原
      (Self.Owner as TForm).OnKeyDown := FOwnerKeyDown;
      (Self.Owner as TForm).OnKeyPress := FOwnerKeyPress;
    end;
  end;
end;
 

    procedure TForm1.FormClick(Sender: TObject);
begin
  if assigned(button1.OnClick) then
     button1.Click;    end;    

引言: 大概是如此吧！ 只不過使用這種方法，需要顧慮的地方有很多。 這種狸貓換太子的作法， 需注意在替換後在替換的事件仍然要呼叫原事件。 由於非直接繼承該元件，只能間接使用Form公開的方法或事件。 應該是沒有其他的作法。 事實上，換各角度。 本身元件的 Load 與 Form的 Create 事件，沒什麼兩樣。 使用物件本身CM_CancelMode 與 Form的 OnClick 有異取同工之妙。 僅提供參考。

謝謝前輩 ,又學到了一招 CM_CancelMode http://delphi.ktop.com.tw/topic.php?topic_id=58592 但 OnClick 及 OnCreate 只是舉例, 是我想要把自己的BaseForm做的更方便 再前感謝 wameng 及 hahalin 前輩, 我真的感覺自己不會寫程式了,一堆程式都是抄別人的< >< >

procedure TForm1.ApplicationEvents1Message(var Msg: tagMSG;
  var Handled: Boolean);
begin
  Handled := false;
  { MouseDown }
  if Msg.message=WM_LBUTTONDOWN then
  begin
    ListBox1.Items.add(inttostr(Msg.hwnd));
  end;
end;