谁有怎样建立包含控件如button的类,以及怎样使用该类的例子.有的话请进!

Question

to:thedream(梦幻使者) 
是的,有吗?

Answer 1

to :torble(阿裕
你发过来了吗,我怎么每有收到呀

Answer 2

//这里是给MEMO加个onscrollup/down事件
unit VickiMemo;interface
uses
  Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms,stdctrls,
  ExtCtrls,dialogs;
type
  TVickiMemo = class(TMemo)
  private
    FOnScrollUp: TNotifyEvent;
    FOnScrollDown:TNotifyEvent;
     procedure CMOnScrollUp(var Message: TWMVScroll);
      message WM_VScroll;
  protected
  public
  published
    property OnScrollUp: TNotifyEvent read FOnScrollUp write FOnScrollUp;
    property OnScrollDown: TNotifyEvent read FOnScrollDown write FOnScrollDown;
  end;
procedure Register;
implementationprocedure Register;
begin
  RegisterComponents('Samples', [TVickiMemo]);
end;procedure TVickiMemo.CMOnScrollUp(var Message: TWMVScroll);
begin
  inherited;
  case  message.ScrollCode of
SB_LINEUP:  if Assigned(FOnScrollDown) then FOnScrollDown(Self);
SB_LINEDOWN:
  if Assigned(FOnScrollUp) then FOnScrollUp(Self);
  end;
end;end.