서경환 wrote:

> StringGrid에 CheckBox를 올리는 방법을 알고십습니다.

> 이런 기능이 지원되는 콤퍼넌트는 알고 있습니다만

> 다른 그리드에서는 그런 기능이 지원이 되지 않아서 기능을 구현하려고 하는데 여기까지는 실력이...

> 도움 부탁드립니다.

> *^_^*



안녕하십니까? 아직까지 답변이 없으시군요 쩝....

그래서 말인디... 제가 예전에 www.daum.net에서 카페동오회중에

초보델파이라는 곳에 답변한 내용이 있어서.. 글을 복사해서 붙여넣기를 하겠습니다.

그럼 참고하시길...쩝

자 붙여넣기 내용입니다.

================================================================

: DB그리드에 체크박스 넣을 수 있는 컴포넌트가 필요해여

: 저번에 하나 구했는데 데모라서 실행파일 만들면 안되네여

: 그림으로 넣는 편법두 있다든데 그건 별룰것 같아서...

: 그럼 도움 기둘리겠습니다.



이런 질문이 제일 힘들다니깐요~! 헤헤

그래도 내가 아는 한도 내에선 도와 드리지요.. 쩝



우선 Xpower라고 하는 컴포가 있지요.

그런데 가격이 19만원입니다.

무진장 좋은 컴포지요...



델파이의 고수인 정준님의 회사에서 만든건데..

요것저것 쓸만하답니다.(솔직히 멋져요.)



그런데 이거 사실건가요?



안사실 거라면...

만드는 수밖에요! 헤헤



그럼 방법은 그 object를 그 그리드안에 넣는 방법을

사용하시면 될거 같군요....

어짜피 dbgrid에 접목시켜서 해보셔요... 쩝

간단히 힌트를 드리자면 아래의 예제에서

그 체크박스의 caption에가다 어떤 table의 fieldbyname를 집어 넣으면 그게 바로 db그리드이지요.

쩝.



자 폼에 버튼과 스트링 그리드를 넣고..

다음의 소스를 카피해서 테스트 해보셔요. 그럼

오브젝트의 이동을 하실수 있을겁니다.



그럼 헤헤.. 안녕히...



unit Unit1;



interface



uses

Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,

StdCtrls, Grids;



type

TForm1 = class(TForm)

StringGrid1: TStringGrid;

Button1: TButton;

procedure Button1Click(Sender: TObject);

private

{ Private declarations }

public

{ Public declarations }

procedure MyEvent(sender :TObject);

end;



var

Form1: TForm1;



implementation



{$R *.DFM}



procedure TForm1.Button1Click(Sender: TObject);

var

co, ro : integer;

begin

with StringGrid1 do

begin

Rows[0].SetText(' '#13'Radio'#13'Check'#13'Button'#13'Combo');

Colwidths[4] := Colwidths[4] * 2;

For ro := 1 To 4 do

begin

For co := 1 to 4 do cells[co,ro] := ' ';

objects[1,ro] := TRadioButton.Create(self);

objects[2,ro] := Tcheckbox.create(self);

TCheckBox(objects[3,ro]).Caption := inttostr(ro) + '번재의 체크박스';

objects[3,ro] := Tbutton.create(self);

TButton(objects[3,ro]).On-Click := MyEvent;

objects[4,ro] := Tcombobox.create(self);

for co := 1 to 4 do

with TWinControl(objects[co,ro]) do

begin

parent := stringgrid1;

boundsrect := cellrect(co,ro);

width := colwidths[co];

height := rowheights[ro];

end;

for co := 1 to 3 do

TButton(objects[co,ro]).caption := format('%s %d', [cells[co,0], ro]);

end;



end;

end;



procedure TForm1.MyEvent(sender :TObject);

begin

showmessage('ok');

end;



end.

StrigGrid에 데이타가 많이 들어가는 경우에 CheckBox가 이상해지는군요???



쉽게 얘기하면



StringGrid가 화면에 10개가 보인다면



데이타가 20개 정도로 화면을 넣어가면





동적으로 만든 CheckBox가 이상해지는군요



왜그런지???



그럼 수고하십시요