Q&A

  • 패널을 보였다 안보였다?
안녕하세요?
패널위에 버튼이나 체크박스등이 있는데요
두개의 패널을 번갈아가면서 하나가 보일때 하나가 안보이고 그렇게 하고싶은데 어떻게 해줘야 되는지 고수님들 답변 부탁드립니다..
2  COMMENTS
  • Profile
    박성훈 2002.09.28 06:48

    안녕하세요?
    이런 식으로 해두 되겠네요.

    procedure TForm1.Button1Click(Sender: TObject);
    begin
        Panel1.Visible:= TControl(Sender).Tag=0;
        Panel2.Visible:= not Panel1.Visible;
        // Panel2.Visbile:= TControSender).Tag=1;  
    end;
  • Profile
    이추형 2002.09.27 22:49
    procedure TForm1.Button1Click(Sender: TObject);
    begin
      Panel1.Visible := False;
      Panel2.Visible := True;
    end;

    procedure TForm1.Button2Click(Sender: TObject);
    begin
      Panel1.Visible := True;
      Panel2.Visible := False;
    end;