SpinEditのUpClickとDownClick (ID:45517)

名前

ホームページ(ブログ、Twitterなど)のURL (省略可)

本文

（a）のコード例

type
  TForm1 = class(TForm)
    SpinEdit1: TSpinEdit;
    Memo1: TMemo;
    procedure FormCreate(Sender: TObject);
  private
    { Private 宣言 }
    FDefOnUpClick: TNotifyEvent;
    FDefOnDownClick: TNotifyEvent;
    procedure SpinUpClick(Sender: TObject);
    procedure SpinDownClick(Sender: TObject);
  public
    { Public 宣言 }
  end;

var
  Form1: TForm1;

implementation

{$R *.dfm}

procedure TForm1.FormCreate(Sender: TObject);
begin
  FDefOnUpClick:=SpinEdit1.Button.OnUpClick;
  SpinEdit1.Button.OnUpClick:=SpinUpClick;

FDefOnDownClick:=SpinEdit1.Button.OnDownClick;
  SpinEdit1.Button.OnDownClick:=SpinDownClick;
end;

procedure TForm1.SpinUpClick(Sender: TObject);
begin
  FDefOnUpClick(Sender);

Memo1.Lines.Add('Up!');
end;

procedure TForm1.SpinDownClick(Sender: TObject);
begin
  FDefOnDownClick(Sender);

Memo1.Lines.Add('Down!');
end;

------------------------------------------------------------------------------------------
（b）のコード例

type
  TSpinEdit = class(Spin.TSpinEdit)
  protected
    procedure UpClick (Sender: TObject); override;
    procedure DownClick (Sender: TObject); override;
  private
    FOnUpClick: TNotifyEvent;
    FOnDownClick: TNotifyEvent;
  end;

type
  TForm2 = class(TForm)
    SpinEdit1: TSpinEdit;
    Memo1: TMemo;
    procedure FormCreate(Sender: TObject);
  private
    { Private 宣言 }
    procedure SpinUpClick(Sender: TObject);
    procedure SpinDownClick(Sender: TObject);
  public
    { Public 宣言 }
  end;

var
  Form2: TForm2;

implementation

{$R *.dfm}

procedure TSpinEdit.UpClick(Sender: TObject);
begin
  inherited;
  if Assigned(FOnUpClick) then FOnUpClick(Sender);
end;

procedure TSpinEdit.DownClick(Sender: TObject);
begin
  inherited;
  if Assigned(FOnDownClick) then FOnDownClick(Sender);
end;

procedure TForm2.FormCreate(Sender: TObject);
begin
  SpinEdit1.FOnUpClick:=SpinUpClick;
  SpinEdit1.FOnDownClick:=SpinDownClick;
end;

procedure TForm2.SpinUpClick(Sender: TObject);
begin
  Memo1.Lines.Add('Up!');
end;

procedure TForm2.SpinDownClick(Sender: TObject);
begin
  Memo1.Lines.Add('Down!');
end;

←解決時は質問者本人がここをチェックしてください。

戻る