Q&A

  • 소스상에서 생성한 컴포넌트의 이벤트 발생?
제목 그대로 소스상에서 생성한 컴포넌트의 이벤트 발생 시에 무엇인가의 작업을 하려면 어찌해야 하나요?

쉽게 예를 들면..

procedure TButton1.
begin
    Showmessage('룰루랄라~');
end;

이처럼 디자인시에 폼위에 버튼을 올려놓고 이벤트에 물려 놓는게 아니고

procedure TForm1.FormCreate(Sender: TObject);
begin
    btn1 := TButton.Create(self);
    
    /**** 버튼 위치, 사이즈 등은 생량 ***/
    
end;

위에처럼 소스상에서 버튼을 만들고 그 버튼을 클릭했을 때
'룰루랄라~'라는 메시지를 보여주기 위해선 어찌해야 하나요.
이 게시물을
1  COMMENTS
  • Profile
    최용일 • 2003.09.20 20:59
    안녕하세요. 최용일입니다.

    이벤트도 좀 특수하지만 Property의 일종입니다.

    동적이든 정적이든 이벤트소스코드는 만들어야 하구요... 단지 이벤트 링크만 코딩으로 연결시켜주시면 됩니다. 이벤트 이름은 아무렇게나 지어두 상관없구요... 파라매터는 이벤트의 함수타입을 보시구 그대로 써주시면 됩니다.

    procedure TForm1.Button1Click(Sender: TObject);
    begin
        Showmessage('룰루랄라~');
    end;

    procedure TForm1.FormCreate(Sender: TObject);
    begin
        btn1 := TButton.Create(self);

        btn1.OnClick := Button1Click;

        /**** 버튼 위치, 사이즈 등은 생량 ***/
        
    end;

    ^^ 항상 즐코하세요...
←First Page
570 571 572 573 574 575 576 577 578 579
Last Page→
한델 로그인 하기