目前正在學習自製元件,想要製作一個可刪除一筆資料的按鈕（繼承自TBitBtn) 當按此鈕時會顯示messagedlg 確認是否要刪除, 按鈕的圖形要先設定及按鈕caption為'刪除' 屬性只有dataset及items(顯示在messagedlg中之字串） 且沒有任何事件. 請教前輩要如何實做?能否貼上程式碼供小弟學習！謝謝!!

 
unit DelBtn;    interface    uses
  Windows, Messages, SysUtils, Classes, Controls, StdCtrls, Buttons,db,dialogs;    type
  TDelBtn = class(TbitBtn)
  private
    { Private declarations }
    Fdataset:Tdataset;
  protected
    { Protected declarations }
  public
    { Public declarations }
    procedure Click; override;
  published
    { Published declarations }
    property dataset: Tdataset read Fdataset write Fdataset;
    property OnClick;
  end;    procedure Register;    implementation    procedure Register;
begin
  RegisterComponents('Samples', [TDelBtn]);
end;    { TDelBtn }    procedure TDelBtn.Click;
begin
  if (not Fdataset.active) then showmessage('Dataset not open!');
  if Fdataset.isempty then exit;
  if Fdataset.state in [dsbrowse] then  Fdataset.delete;
  inherited;
end;    end.

1.簡單的範例,因為不知道用什麼資料庫,所以沒有加Transaction功能 2.procedure Click;是指當滑鼠按下放開後元件要做什麼事 3.property OnClick;是指Object inspector上的Event handler,除了執行 內定的procedure Click外,你想要額外執行的功能... 4.閒麻煩可以動態create元件,不用裝到元件盤上 永遠追不上技術更新的速度

------
星期一,二...無窮迴圈＠＠

引言: 目前正在學習自製元件,想要製作一個可刪除一筆資料的按鈕（繼承自TBitBtn) 當按此鈕時會顯示messagedlg 確認是否要刪除, 按鈕的圖形要先設定及按鈕caption為'刪除' 屬性只有dataset及items(顯示在messagedlg中之字串） 且沒有任何事件. 請教前輩要如何實做?能否貼上程式碼供小弟學習！謝謝!!

參考TDBNavigator源碼

謝謝pgdennis及jest0024兩為位前輩 的指教!我會試試看.