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

• 제품설치/등록 오류 문의: 설치/등록 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	17243
공지	유용한 관련 사이트	관리자2	2014.03.20	56130
공지	본 게시판은 개발자 여러분들의 질문과 답변을 공유하는 공간입니다.	관리자	2012.01.10	99565
1319	윈도우 기반에서 원격 디버깅은 어떻게 하나요?	험프리	2017.07.12	371
1318	CallBack 문의사항 [1]	파란하늘	2017.07.13	164
1317	더버깅 시 실시간 메모리 뷰	나즈나	2017.07.13	175
1316	[공유] FireDAC으로 MySQL과 어떻게 연결하나요? [3]	험프리	2017.07.14	2614
1315	FireDAC 사용중 프로그램 종료 시 오류 [3]	푸우웅	2017.07.14	264
1314	DataSNAP 연결하여 클라이언트에서 업무처리중에 네트웍이 끊기면 [2]	0Erros	2017.07.16	388
1313	RxToolEdit, RxCurrEdit [1]	kwy0702	2017.07.17	193
1312	열거형 종류별로 TypeHelper를 이용 [1]	kspark	2017.07.17	219
1311	DataSnap, EMS, Multitier가 로드가 안됩니다. [2]	나즈나	2017.07.18	116
1310	Pagecontrol 커서 위치의 탭 Active 방법에 대해 고수님께 질문드립니다.	빵식	2017.07.19	317
1309	스마트폰 앱에서 report 만드는 방법 문의	김하나	2017.07.19	504
1308	Delphi2009 TWebbrowser와 win10 Creative 업데이트 이후 발생되는 문제 [1]	kpic	2017.07.19	373
1307	Raize 컴포넌트 사용방법 문의 [1]	이영진	2017.07.19	489
1306	델파이 시애틀 관련문의 [1]	rrraggg	2017.07.20	406
1305	xe 10.2 에서 Form transparency 기능 문의	vastia	2017.07.20	122
1304	패키지 포함한 컴파일 방법 문의합니다.	riveriron	2017.07.21	148
1303	RAD Studio XE2 에러 메세지 관련	휴먼토크	2017.07.21	128
1302	Tgrid 사용가능한지요? [1]	도담	2017.07.22	140
1301	구글플레이 게시시 기기별로 버전이 다르게 보이는 경우 [2]	화이부동	2017.07.24	160
1300	안드로이드 아이콘에 댓글수 즉 정수 표기하는 방법은? [5]	화이부동	2017.07.24	475

첫 페이지 94 95 96 97 98 99 100 101 102 103 끝 페이지

쓰기

검색

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

태그