Q&A

  • 동적컨트롤에 어떻게 이벤트를 주나요?
?
2  COMMENTS
  • Profile
    KDDG_Jo 2002.08.21 01:25


        procedure FormCreate(Sender: TObject);
      private
        procedure MyMouseDown(Sender: TObject; Button: TMouseButton;
           Shift: TShiftState; X, Y: Integer);
      public
        { Public declarations }
      end;

    var
      Form1: TForm1;

    implementation

    {$R *.DFM}
    procedure TForm1.FormCreate(Sender: TObject);
    begin
       Button1.OnMouseDown := MyMouseDown;
    end;

    procedure TForm1.MyMouseDown(Sender: TObject; Button: TMouseButton;
      Shift: TShiftState; X, Y: Integer);
    begin
       if Label1.color <> clBlue then Label1.color := clBlue
       else Label1.color := clBlack;
    end;


    end.
  • Profile
    하늘벌레 2002.08.21 00:46

    차라리 프로시저를 따로 정의하고

    MouseDown 에서도 해당 프로시저를 호출하고
    버튼클릭 이벤트에서도  해당 프로시저를 호출하면 되지 않을까요..