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

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

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

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

2020.04.10 18:26

육식육식 조회 수:515

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

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

이 게시물을

• 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	15767
공지	유용한 관련 사이트	관리자2	2014.03.20	54581
공지	본 게시판은 개발자 여러분들의 질문과 답변을 공유하는 공간입니다.	관리자	2012.01.10	97992
1973	Xe5 DB 원견 접속 쿼리 실행 오류 문의 합니다. ㅠㅠ [2]	조은놈	2021.02.02	172
1972	ExportGridToXLSX 한글 & 특수 문자 사용시 오류	가나다	2021.02.10	419
1971	Xe7 datasnap 안드로이드11 업그레이드후 실행이 안됨 [1]	천년바우	2021.02.08	203
1970	TStreamReader 한글깨짐 문제 [6]	IslamsWine	2020.02.29	2958
1969	초보적인 문의 드립니다. [4]	BD	2021.02.04	197
1968	CodeSite 질문입니다. [2]	BD	2021.01.27	211
1967	IOS 배포 에러 질문드립니다. [PAClient Error] Error: E0776 [1]	syc	2021.01.28	357
1966	CodeSite 질문 입니다. [3]	늦바람	2015.03.27	650
1965	FireDac 쿼리 실행시 가끔 발생되는 Access Violation을 못잡겠습니다.. [1]	육식육식	2021.01.20	244
»	VCL어플리케이션 개발 중 GridPanel 질문드립니다! [2]	육식육식	2020.04.10	515
1963	TComport 64bit도 지원가능한가요? [2]	야크	2021.01.12	396
1962	MDI, CHILD 구성 DLL Form Close [1]	가나다	2021.01.11	1317
1961	ClientDataSet1.Data 문의드립니다 [2]	가나다	2021.01.06	1633
1960	10.4.1 에서 iOS Simulator 연결 시 디버그 모드만 동작되고 릴리즈 모드는 죽어버립니다. [2]	막스뮐러	2021.01.04	397
1959	10.4 버전 DataSnap 연결 에러 질문드립니다. [4]	syc	2020.06.25	618
1958	TSQLQuery 사용시 operation not supported [1]	영들사랑	2020.12.30	397
1957	Delphi7 TcontrollScrollbar 관련 질문 [2]	temp	2020.12.22	220
1956	Delphi 10.4.1 Sydney - 위치변경후..주소변환 오류문의 [1]	silkroad99	2020.12.04	301
1955	갤럭시 s20 삼성ui3.0 업데이트 후 앱 파이어몽키 앱 튕깁니다.??	kerry	2020.12.21	589
1954	Multi Tenant 모드일때 REST 요청시 401에러 [1]	초보개발자	2020.12.07	215

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

쓰기

검색

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

태그