자유롭게 질의 및 응답을 할 수 있는 게시판입니다. 개발자 여러분의 답변이 큰 도움이 됩니다. 

• 제품설치/등록 오류 문의: 설치/등록 Q&A 이용 (제품 구매 고객 한정)

• 전체
• Delphi
• C++ Builder
• RadPHP
• Firemonkey
• Interbase
• 도서

Delphi VCL어플리케이션 개발 중 GridPanel 질문드립니다!

2020.04.10 18:26

육식육식 조회 수:523

본 게시판은 개발자들이 자유롭게 질문과 답변을 공유하는 게시판입니다.
* 따라서 최대한 정중하게 질문을 올려 주세요.
* 질문을 상세히 작성해 주실 수록 좋은 답변이 올라 옵니다.
* 다른 분들도 참고할 수 있도록 결과 댓글 필수(또는 감사 댓글)
(결과 댓글을 달지 않는 경우 다음 질문에 대한 답변이 달리지 않는 불이익이 있을 수 있습니다.)
-----------------------------------------------------------------------------------------------

안녕하세요. VCL로 FMX의 ListView 같은 녀석을 만들어보고 있는 중인데요,

이런 저런 Grid를 사용해보다가 GridPanel로 구현해보고 있습니다...

 

컬럼이 add 될 때마다 위와 같은 형태를 동적으로 만들고 있구요,

GridPanel에는 노란색 TLabel로 꽉 채우고(Align := alClient),

노란색 TLabel을 Parent로 설정한 하얀색 컴포넌트들을 넣었습니다. 

 

궁금한 것은 GridPanel 클릭이벤트를 주고 싶은데.. 어떻게 하면 좋을지 모르겠습니다....

안에 보이는 모든 컴포넌트의 클릭이벤트를 모두 동일하게 넣으면 되긴 하지만...

뭔가 더 좋은 방법이 있을 것 같은데..

GridPanel에 대한 정보를 찾기가 너무 어려워 이곳에 도움을 구합니다.

첨부 [1]

• 2020-04-10 18;12;40.PNG [File Size:3.1KB/Download:51]

이 게시물을

• Twitter
• Me2day
• Facebook
• Delicious

목록

댓글 2

• 김원경

  2020.04.17 11:00

  정확히 어는 컨트롤에 이벤트를 주는것인지 잘 모르겠습니다만

   

  1. 아래와 같은 원하시는 row, column을 찾아 가실 수 있습니다.

  var

    aControl : TControl;

  begin

    aControl := GridPanel1.ControlCollection.Controls[1,1]; //3rd row, 4th column

    if Assigned(aControl) AND (aControl IS TButton) then

       TButton(aControl).Caption := 'hit';

  end;

   

  2. 특정 Control이 있는 행과 열 가져 올 수 있습니다.

  var

    aControl : TControl;

    idx : integer;

    cRow, cColumn : integer;

  begin

    //"pseudo" code (as aControl is nil)

   

    cRow := -1; cColumn := -1;

    idx := GridPanel1.ControlCollection.IndexOf(aControl);

    if idx > -1 then

    begin

      cRow := GridPanel1.ControlCollection[idx].Row;

      cColumn := GridPanel1.ControlCollection[idx].Column;

    end;

  end;

   

   

   

  예로 그리드판넬에 버튼을 동적으로 올리고 각 버튼을 클릭할 떄 해당 버튼의 행,열을 표시하도록해 보았습니다. 참조하십시오.

   

    1. 이벤트 핸들러를 선언하고 작성합니다.

   

   private

     procedure TestHandler(Sender:Tobject);

   

   procedure TForm28.TestHandler(Sender: Tobject);

  var

    Row, Column : Integer;

  begin

    GetRowColumn(Sender as TControl, Row, Column);

    // do something with Row and Column

    ShowMessage( Format('row=%d - col=%d',[Row, Column]));

  end;

   

   

  2. GetRowColumns 루틴을 선언하고 아래와 같이 구현합니다.

   

  procedure TForm28.GetRowColumn(const AControl: TControl; var ARow,

    AColumn: Integer);

  var

    I: Integer;

  begin

    if AControl.Parent is TGridPanel then

    begin

      I := TGridPanel(AControl.Parent).ControlCollection.IndexOf(AControl);

      if I > -1 then

      begin

        ARow := TGridPanel(AControl.Parent).ControlCollection[I].Row;

        AColumn := TGridPanel(AControl.Parent).ControlCollection[I].Column;

      end;

    end;

  end;

   

   

  3. 동적으로 생성시 버튼에 이벤트 핸들러를 연결합니다.

   

    for i := 0 to -1 + rowCount * colCount do

    begin

      aButton := TButton.Create(self);

      aButton.Parent := GridPanel1; //magic: place in the next empty cell

      aButton.Visible := true;

      aButton.Caption := 'Btn ' + IntToStr(i);

      aButton.Align := alClient;

      aButton.AlignWithMargins := true;

      aButton.OnClick :=  TestHandler;

    end;

   

    GridPanel1.RowCollection.EndUpdate;

    GridPanel1.ColumnCollection.EndUpdate;

   

  또하나 이렇게 핸들러를 공유했을때 각 버튼의 Tag 속성에 고유의 숫자를 넣어서 이용할 수도 있습니다.

   

   Procedure TForm1.OnClick(Sender:tObject);
   var
     iButton : integer;
   begin
     if Sender is TComponent then
        begin
          iButton := TComponent(Sender).Tag;
          // do something with iButton
        end;
   end;

  댓글

• 육식육식

  2021.01.20 11:45

  답변을 너무 늦게 확인했네요.

  감사합니다. 안그래도 요즘 그 부분을 다시 수정중인데 크게 도움이 되었습니다 ㅠㅠ 늦게 나마 감사합니다.

  댓글

목록

번호	제목	글쓴이	날짜	조회 수
공지	[프로그래밍 강의] 2021.6~2021.12	관리자	2015.01.22	17260
공지	유용한 관련 사이트	관리자2	2014.03.20	56158
공지	본 게시판은 개발자 여러분들의 질문과 답변을 공유하는 공간입니다.	관리자	2012.01.10	99579
3159	xe10 시애틀 컴파일시 에러메세지 확인 부탁드립니다.	kerry	2016.07.13	104
3158	[시작하는 사람들을 위한 델파이 프로그래밍] 모듈 10 - Exercise 2 [1]	관리자	2016.05.10	104
3157	[시작하는 사람들을 위한 델파이 프로그래밍] 모듈 22 - Exercise 3 [2]	관리자	2016.05.27	104
3156	[시작하는 사람들을 위한 델파이 프로그래밍] 모듈 25 - Exercise 1 [2]	관리자	2016.05.27	104
3155	[10.2 도쿄 출시세미나] 리눅스에서 pascal로 코딩시, c++로 개발된 리눅스용 라이브러리 사용하는법	험프리	2017.04.06	104
3154	[시작하는 사람들을 위한 델파이 프로그래밍] 모듈 24 - Exercise 1 [2]	관리자	2016.05.27	105
3153	시애틀 TBeacon컴포넌트가 같은 기종의 모바일에서 작동 유무가 다릅니다.	김태윤	2016.10.19	105
3152	구글플레이에 올릴려면 리오로 apk를 생성하면 된가요? [2]	화이부동	2018.12.19	105
3151	[RAD서버-201703 세미나] 모바일 화면디자인에 도움이 되는 샘플안내 부탁드립니다.	험프리	2017.03.17	105
3150	TFMTBCDField 필드 type 사용방법에 대해 문의드립니다 [1]	delphi	2015.09.17	105
3149	컴포넌트 사용 관련 [1]	똘귀아빠	2015.10.23	105
3148	다국어 지원 관련 XE6 update1 오류 발생 문의 [1]	spirng	2015.09.09	106
3147	[시작하는 사람들을 위한 델파이 프로그래밍] 모듈 15 - Exercise 4 [1]	관리자	2016.05.27	106
3146	*.DPC 컴포넌트 설치 질문 [1]	연일하	2016.08.30	106
3145	[시작하는 사람들을 위한 델파이 프로그래밍] 모듈 11 - Exercise 3 [1]	관리자	2016.05.10	107
3144	시애틀을 사용하고 있는데, 베를린 업데이트2를 설치하려고 합니다. 삭제 후 설치해야 하나요?	관리자	2017.01.05	107
3143	[100%활용 세미나] RAD서버와 엔터프라이즈 커넥터를 구매하지 않고 사용가능한가요?	험프리	2017.11.10	107
3142	RADSTUDIO 10(Seattle) 의 dbGo 팔레트에서 ADOStoredProc 관련 소스코드를 찾습니다.	한태수	2019.12.05	107
3141	[시작하는 사람들을 위한 델파이 프로그래밍] 모듈 12 - Exercise 5	관리자	2020.07.03	107
3140	paclientcore240.bpl를 다운받었는데 어떻게 사용하는지? [2]	화이부동	2016.09.03	108

첫 페이지 2 3 4 5 6 7 8 9 10 11 끝 페이지

쓰기

검색

제목+내용제목내용댓글이름닉네임태그 검색

태그