docktoolbar.pas

来自「Delphi编写的一个支持语法高亮显示和很多语言的文本编辑器」· PAS 代码 · 共 23 行

unit dockToolbar;


interface

uses ComCtrls, wINDOWS;

type
  TDockingToolbar = Class(TToolBar)
  protected
    procedure DoEndDock(Target: TObject; X, Y: Integer); override;
end;

implementation

procedure TDockingToolbar.DoEndDock(Target: TObject; X, Y: Integer);
begin
  if (Target is TPageControl) then
    MessageBox(0, 'test', 'test', mb_ok);
end;

end.