Q&A

  • 사용자 함수 사용하는 법
사용자 함수 사용하는 법 좀 알려주세요

반복되는 프로시저가 32개 있는데요. 내용은 다음과 같습니다.

procedure Button1Click(Sender: Tobject);
begin
if button1.caption= 'off' then begin
                                        button1.caption:='on';
                                        do_data:=do_data+1;
                                        end
                                 else begin    
                                         button1.caption:='off';
                                         do_data:=do_data-1;
                                         end;
end;

똑같은 프로시져가 Button1부터 Button32 까지 있구요
아시는분 좀 도와주십시오
2  COMMENTS
  • Profile
    조용한 2002.01.22 22:49
    button1 ~ 32 까지 onClick 이벤트를 하나로 묶고..

    if button1.caption= 'off' then
    대신에

    if TButton(Sender).Caption = 'off' then  이라고만 변형시켜주면 되겠네여..

    그럼 즐코...

  • Profile
    정말초보 2002.01.22 21:42
    Button2부터 32까지의 Click 이벤트에 Button1의 클릭이벤트를
    넣어주시면 됩니다.
    현재 참 sender 는 button1 이므로
    이벤트에서 비교하여 처리하면 되 줄 아뢰옵니다.