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

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

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

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

2020.04.10 18:26

육식육식 조회 수:563

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

안녕하세요. 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:59]

이 게시물을

• 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	20056
공지	유용한 관련 사이트	관리자2	2014.03.20	58961
공지	본 게시판은 개발자 여러분들의 질문과 답변을 공유하는 공간입니다.	관리자	2012.01.10	102580
3159	델파이 도면편집 컴포넌트 문의	오바라미	2021.02.26	235
3158	질문] 코드사이트 중국어 표기 [1]	날개의꿈	2021.02.26	179
3157	linux console에서 webbrowser에러	100jk	2021.02.23	136
3156	Android SDK 관련 문의 [2]	신우	2021.02.16	271
3155	[문의] C++builder 10.4 에서 Troubleshooting: Cannot Run on an Android Device 오류입니다. [1]	구석	2021.01.31	231
3154	Xe5 DB 원견 접속 쿼리 실행 오류 문의 합니다. ㅠㅠ [2]	조은놈	2021.02.02	192
3153	ExportGridToXLSX 한글 & 특수 문자 사용시 오류	가나다	2021.02.10	540
3152	10.3 Rio 버젼에서 Code Insight 기능 오류현상 [1]	sihwan	2018.12.14	435
3151	RAD Studio 10.3.2 Code Insight의 지속적인 문제 [2]	포비	2019.10.02	424
3150	Xe7 datasnap 안드로이드11 업그레이드후 실행이 안됨 [1]	천년바우	2021.02.08	217
3149	TStreamReader 한글깨짐 문제 [6]	IslamsWine	2020.02.29	3141
3148	초보적인 문의 드립니다. [4]	BD	2021.02.04	228
3147	CodeSite 질문입니다. [2]	BD	2021.01.27	246
3146	IOS 배포 에러 질문드립니다. [PAClient Error] Error: E0776 [1]	syc	2021.01.28	385
3145	CodeSite 질문 입니다. [3]	늦바람	2015.03.27	683
3144	안드로이드11에서 실행이 멈추는 원인 해결 방법 부탁 [1]	hms123	2021.01.29	330
3143	모바일에서 이미지 로딩시, 사진 방향이 바뀌는 이유 [3]	delphiman	2021.01.26	409
3142	[문의] C++ Builder 10.x.x 로 개발된 프로그램 재배포는 어떻게합니까? [2]	inhi	2021.01.14	316
3141	FireDac 쿼리 실행시 가끔 발생되는 Access Violation을 못잡겠습니다.. [1]	육식육식	2021.01.20	271
»	VCL어플리케이션 개발 중 GridPanel 질문드립니다! [2]	육식육식	2020.04.10	563

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

쓰기

검색

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

태그