Q&A

  • RxSpinEdit Up, Down click 사용방법 알려주세여~
RxSpinEdit에서 Up 이나 Down 버튼을 클릭할때

각각 다른 동작을 수행하게 하고 싶은데

RxspinEdit1.Upclick
RxspinEdit1.Downclick

RxspinEdit1.Increment

등등

여러가지를 써봤는데 안돼네요...

어떻게 해야하나요~~~
1  COMMENTS
  • Profile
    최석기 2002.08.24 00:50
    임시변수로 클릭하기 전에 값을 기억해 뒀다가 값이 변하는 시점에서 비교해서 처리하면 될꺼 같은데요..

    unit Unit1;

    interface

    uses
      Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
      StdCtrls, RXSpin;

    type
      TForm1 = class(TForm)
        RxSpinEdit1: TRxSpinEdit;
        procedure RxSpinEdit1Change(Sender: TObject);
      private
        { Private declarations }
        procedure OnUpClick;
        procedure OnDownClick;
      public
        { Public declarations }
      end;

    type
      TDirection = (rxsDOWN, rxsUP)

    var
      Form1: TForm1;
      OldValue: Extended = 0;
      Direction: TDirection = rxsDOWN;

    implementation

    {$R *.DFM}

    procedure TForm1.OnDownClick;
    begin
      //To DO
    end;

    procedure TForm1.OnUpClick;
    begin
      //To Do
    end;

    procedure TForm1.RxSpinEdit1Change(Sender: TObject);
    begin
      if OldValue < RxSpinEdit1.Value then begin
        Direction := rxsUP;
        OnUpClick;
      end
      else begin
        Direction := rxsDOWN;
        OnDownClick;
      end;
      OldValue := RxSpinEdit1.Value;
    end;

    end.