한국 델파이 개발자 모임 - 체크박스를 배열로 동적생성후에 이벤트.....

체크박스를 배열로 동적생성후에 이벤트.....

안녕하십니까.

다름이 아니라 체크박스를 배열로 선언하고 동적으로 만들어 준후에 OnClick이벤트를 선언해 주었습니다. 물론 체크박스 이벤트에 모두 같은 이름으로.....

체크박스를 클릭할때마다 이벤트는 잘 발생 하는데 문제는 어느 체크박스를 선택했는지 알수가 없습니다.

어떻게 하면 알수가 있을까요?

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

procedure TFMain.Layer_Index_InIt();

var

QDB : TQuery;

ft : TFont;

begin

ft := TFont.Create;

QDB := TQuery.Create(self);

QDB.DatabaseName := 'sample'; //local db

QDB.active := false;

QDB.SQL.Clear;

QDB.sql.add(' SELECT * FROM S_INDEX ');

QDB.Open;

if QDB.RecordCount > 0 then

begin

//APanel 은 전역으로 선언

//ACheckBox도 전역....

SetLength(APanel, QDB.RecordCount);

setLength(ACheckBox, QDB.RecordCount);

QDB.First;

ft.Name := QDB.FieldByName('FT_Name').AsString;

while not QDB.Eof do

begin

// DB에 있는 수만큼 만듭니다.

Index_Add(QDB.FieldByName('ID').AsInteger,

ft,

QDB.FieldByName('CHAR_CAP').AsString,

QDB.fieldByName('ATTRIBUTE').AsString);

QDB.Next;

end;

end;

end;

procedure TFMain.Index_Add(ICount : integer;

font : TFont;

fontIndex : string;

FCaption : String);

begin

APanel[ICount] := TPanel.Create(self);

APanel[ICount].Parent := SBLayerIndex;

APanel[ICount].Align := alTop;

APanel[ICount].Height := 33;

APanel[ICount].Alignment := taLeftJustify;

APanel[ICount].Caption := ' ' + FCaption;

ACheckBox[ICount] := TCheckBox.Create(self);

ACheckBox[ICount].Parent := APanel[ICount];

ACheckBox[ICount].Font := font;

ACheckBox[ICount].Caption := fontIndex;

ACheckBox[ICount].Top := 8;

ACheckBox[ICount].left := 8;

ACheckBox[ICount].Width := 57;

ACheckBox[ICount].Height := 17;

ACheckBox[ICount].Checked := true;

ACheckBox[ICount].OnClick := CheckBoxOnClick;

APanel[ICount].Show;

ACheckBox[ICount].Show;

end;

procedure TFMain.CheckBoxOnClick(Sender: TObject);

begin

//todo

end;

이 게시물을

3 COMMENTS

서경철 • 2000.10.02 20:11

> procedure TFMain.CheckBoxOnClick(Sender: TObject);

> begin

> //todo

> end;

Sender를 이용해서,

예를 들어 클릭한 체크박스가 체크되어 있는지를 아는 코드를 만든다면

procedure TFMain.CheckBoxOnClick(Sender: TObject);

var

ifChecked:Boolean;

begin

ifChecked := (Sender as TCheckBox).Checked;

//그다음에 if Checked 어쩌고...

end;

잘될려나...되겠죠?
- 0
- 0
- 삭제
- 수정
- 댓글
김하늘 • 2000.09.14 23:36

Demo wrote:

> 안녕하십니까.

> 다름이 아니라 체크박스를 배열로 선언하고 동적으로 만들어 준후에 OnClick이벤트를 선언해 주었습니다. 물론 체크박스 이벤트에 모두 같은 이름으로.....

> 체크박스를 클릭할때마다 이벤트는 잘 발생 하는데 문제는 어느 체크박스를 선택했는지 알수가 없습니다.

> 어떻게 하면 알수가 있을까요?

>

> ===============================================

> procedure TFMain.Layer_Index_InIt();

> var

>

> QDB : TQuery;

> ft : TFont;

> begin

> ft := TFont.Create;

> QDB := TQuery.Create(self);

> QDB.DatabaseName := 'sample'; //local db

> QDB.active := false;

> QDB.SQL.Clear;

> QDB.sql.add(' SELECT * FROM S_INDEX ');

> QDB.Open;

>

> if QDB.RecordCount > 0 then

> begin

> //APanel 은 전역으로 선언

> //ACheckBox도 전역....

> SetLength(APanel, QDB.RecordCount);

> setLength(ACheckBox, QDB.RecordCount);

> QDB.First;

> ft.Name := QDB.FieldByName('FT_Name').AsString;

> while not QDB.Eof do

> begin

> // DB에 있는 수만큼 만듭니다.

> Index_Add(QDB.FieldByName('ID').AsInteger,

> ft,

> QDB.FieldByName('CHAR_CAP').AsString,

> QDB.fieldByName('ATTRIBUTE').AsString);

> QDB.Next;

> end;

> end;

> end;

>

> procedure TFMain.Index_Add(ICount : integer;

> font : TFont;

> fontIndex : string;

> FCaption : String);

>

>

> begin

> APanel[ICount] := TPanel.Create(self);

> APanel[ICount].Parent := SBLayerIndex;

> APanel[ICount].Align := alTop;

> APanel[ICount].Height := 33;

> APanel[ICount].Alignment := taLeftJustify;

> APanel[ICount].Caption := ' ' + FCaption;

>

> ACheckBox[ICount] := TCheckBox.Create(self);

> ACheckBox[ICount].Parent := APanel[ICount];

> ACheckBox[ICount].Font := font;

> ACheckBox[ICount].Caption := fontIndex;

> ACheckBox[ICount].Top := 8;

> ACheckBox[ICount].left := 8;

> ACheckBox[ICount].Width := 57;

> ACheckBox[ICount].Height := 17;

> ACheckBox[ICount].Checked := true;

> ACheckBox[ICount].OnClick := CheckBoxOnClick;

> APanel[ICount].Show;

> ACheckBox[ICount].Show;

>

> end;

>

> procedure TFMain.CheckBoxOnClick(Sender: TObject);

> begin

> //todo

> end;

// 참고요

> procedure TFMain.Index_Add~~~ 안에서요

생성할때 ICount 변수가 고유하다면

판넬.tag := ICount;

체크박스.tag := ICount;

이런식으로

아니면 Name프로퍼티가 존재하니까 Name에 시
- 0
- 0
- 삭제
- 수정
- 댓글
kylix • 2000.09.14 23:27

tag프로퍼티를 이용하세요.

ACheckBox[ICount].Tag := ICount;

OnClick이벤트에서 Tag를 검색하시면 어떤 체크박스가 선택되어서 발생했는지를 알수 있죠...

Demo wrote:

> 안녕하십니까.

> 다름이 아니라 체크박스를 배열로 선언하고 동적으로 만들어 준후에 OnClick이벤트를 선언해 주었습니다. 물론 체크박스 이벤트에 모두 같은 이름으로.....

> 체크박스를 클릭할때마다 이벤트는 잘 발생 하는데 문제는 어느 체크박스를 선택했는지 알수가 없습니다.

> 어떻게 하면 알수가 있을까요?

>

> ===============================================

> procedure TFMain.Layer_Index_InIt();

> var

>

> QDB : TQuery;

> ft : TFont;

> begin

> ft := TFont.Create;

> QDB := TQuery.Create(self);

> QDB.DatabaseName := 'sample'; //local db

> QDB.active := false;

> QDB.SQL.Clear;

> QDB.sql.add(' SELECT * FROM S_INDEX ');

> QDB.Open;

>

> if QDB.RecordCount > 0 then

> begin

> //APanel 은 전역으로 선언

> //ACheckBox도 전역....

> SetLength(APanel, QDB.RecordCount);

> setLength(ACheckBox, QDB.RecordCount);

> QDB.First;

> ft.Name := QDB.FieldByName('FT_Name').AsString;

> while not QDB.Eof do

> begin

> // DB에 있는 수만큼 만듭니다.

> Index_Add(QDB.FieldByName('ID').AsInteger,

> ft,

> QDB.FieldByName('CHAR_CAP').AsString,

> QDB.fieldByName('ATTRIBUTE').AsString);

> QDB.Next;

> end;

> end;

> end;

>

> procedure TFMain.Index_Add(ICount : integer;

> font : TFont;

> fontIndex : string;

> FCaption : String);

>

>

> begin

> APanel[ICount] := TPanel.Create(self);

> APanel[ICount].Parent := SBLayerIndex;

> APanel[ICount].Align := alTop;

> APanel[ICount].Height := 33;

> APanel[ICount].Alignment := taLeftJustify;

> APanel[ICount].Caption := ' ' + FCaption;

>

> ACheckBox[ICount] := TCheckBox.Create(self);

> ACheckBox[ICount].Parent := APanel[ICount];

> ACheckBox[ICount].Font := font;

> ACheckBox[ICount].Caption := fontIndex;

> ACheckBox[ICount].Top := 8;

> ACheckBox[ICount].left := 8;

> ACheckBox[ICount].Width := 57;

> ACheckBox[ICount].Height := 17;

> ACheckBox[ICount].Checked := true;

> ACheckBox[ICount].OnClick := CheckBoxOnClick;

> APanel[ICount].Show;

> ACheckBox[ICount].Show;

>

> end;

>

> procedure TFMain.CheckBoxOnClick(Sender: TObject);

> begin

> //todo

> end;
- 0
- 0
- 삭제
- 수정
- 댓글

(NOTICE) You must be logged in to comment on this post.

- 박근신
- 2000.09.15 01:08
- 0 COMMENTS
- /
- 0 LIKES
3.0에서의 문제 컴파일에러
- 어린양
- •
- 2000.09.15 01:05
- 1 COMMENTS
- /
- 0 LIKES
TImageList에 동적으로 그림을 입력하는 방법 알고싶어여
- kylix
  
  •
  
  2000.09.15 21:41
  
  흠~ 아마도 서로 다른 크기의 이미지를 넣은 것 같네요... 이미지리스트에는 같은 크기의 이미지만이 들...
- 이상현
- •
- 2000.09.15 01:04
- 7 COMMENTS
- /
- 0 LIKES
델파이 데모폴더에 있는 experts폴더?
- kylix
  
  •
  
  2000.09.15 01:19
- 이상현
  
  •
  
  2000.09.15 01:44
- kylix
  
  •
  
  2000.09.15 02:20
- 이상현
  
  •
  
  2000.09.15 02:38
- kylix
  
  •
  
  2000.09.15 02:48
- 이상현
  
  •
  
  2000.09.15 02:56
- kylix
  
  •
  
  2000.09.15 03:13
- 박일용
- •
- 2000.09.15 00:46
- 2 COMMENTS
- /
- 0 LIKES
Edit Enabled에 대한 질문...
- 임형호
  
  •
  
  2000.09.15 01:32
  
  정확한 답변은 아니고요. 음...edit의 enabled속성을 false로 지정할 경우 edit에 글자를 입력하거나 수정...
- 최석기
  
  •
  
  2000.09.15 01:22
  
  실제로 그런 방법이 있는지 어떤지는 모르겠네요.. 그냥 약간의 눈속임으로 가능할꺼 같네요.. proce...
- 김은정
- •
- 2000.09.15 00:44
- 1 COMMENTS
- /
- 0 LIKES
매소드에 알구싶어영...
- 마법사리.
  
  •
  
  2000.09.15 04:45
  
  책을 찾아 보시는 게 제일 빠를거 같은데요.. 또 모르죠..? 차근 차근 설명해 주실 고마우신 분들이 계...
- 최석기
- 2000.09.15 00:40
- 0 COMMENTS
- /
- 0 LIKES
Re: WebBrowser 앤터값?
- 김은정
- 2000.09.15 00:39
- 0 COMMENTS
- /
- 0 LIKES
질문제목과 분류를 꼭 해주시길 부탁드립니다.
- 델왕초짜
- •
- 2000.09.15 00:47
- 1 COMMENTS
- /
- 0 LIKES
ODBC를 인스톨실드에서 설정(레지스트리 )방법.
- s6763
  
  •
  
  2000.09.16 01:19
  
  델왕초짜 wrote: > 델파이 3과 MS Access 97 mdb 를 ODBC 로 연결하여 프로그램 제작을 끝냈습니다. > ...
- 문진현
- •
- 2000.09.15 00:16
- 1 COMMENTS
- /
- 0 LIKES
WndProc 프로시져의 이해?
- 김진호
  
  •
  
  2000.09.15 02:46
  
  문진현 wrote: > 안녕하세요.. > > WndProc 프로시져가 어떤것인지 > 알려 주세요... > 어떤일을 하...
- 이진규
- •
- 2000.09.15 01:03
- 1 COMMENTS
- /
- 0 LIKES
my sql odbc등록에대해서?
- 박대근
  
  •
  
  2000.10.15 00:18
  
  이진규 wrote: > 도메인명은 www.ornara.com 이고 > 호스팅업체의 아이디는 main 이고 > db이름은 mai...
- 초보자
- •
- 2000.09.14 23:56
- 2 COMMENTS
- /
- 0 LIKES
이 에러가 무슨 뜻인가요???
- kylix
  
  •
  
  2000.09.15 00:05
  
  QrTee가 현재 있는 퀵레포트의 유닛과 버전이 틀리다는데요... 델파이 버전이 같다하더라도 참조하는 유...
- 초보자
  
  •
  
  2000.09.15 01:58
  
  친절한 답변 감사드립니다.. 크게 도움이 되었습니다. 감사합니다. 그럼 즐거운 하루 되시길 바랍니...
- 사발우성
- 2000.09.14 23:46
- 0 COMMENTS
- /
- 0 LIKES
dblookupcombobox에 대해서 검색해보시와여....
- 박병희
- 2000.09.14 23:29
- 0 COMMENTS
- /
- 0 LIKES
일반(VCL)
- Demo
- •
- 2000.09.14 23:24
- 3 COMMENTS
- /
- 0 LIKES
체크박스를 배열로 동적생성후에 이벤트.....

안녕하십니까. 다름이 아니라 체크박스를 배열로 선언하고 동적으로 만들어 준후에 OnClick이벤트를 선언해 주었습니다. 물론 체크박스 이벤트에 모두 같은 이름으로..... 체크박스를 클릭할때마다 이벤트는 잘 발생 하는데 문제는 어느 ...
- 서경철
  
  •
  
  2000.10.02 20:11
  
  > procedure TFMain.CheckBoxOnClick(Sender: TObject); > begin > //todo > end; Sender를 이용해...
- 김하늘
  
  •
  
  2000.09.14 23:36
  
  Demo wrote: > 안녕하십니까. > 다름이 아니라 체크박스를 배열로 선언하고 동적으로 만들어 준후에 OnCl...
- kylix
  
  •
  
  2000.09.14 23:27
  
  tag프로퍼티를 이용하세요. ACheckBox[ICount].Tag := ICount; OnClick이벤트에서 Tag를 검색하시...
- 안충권
- 2000.09.14 23:22
- 0 COMMENTS
- /
- 0 LIKES
인스톨쉴드6.2 sdfinish dialog에서
- heimdal
- 2000.09.14 22:49
- 0 COMMENTS
- /
- 0 LIKES
디비네비게이터처럼 스트링그리드셀이동을 버튼으로..
- 뚠보아빠
- 2000.09.14 22:39
- 0 COMMENTS
- /
- 0 LIKES
[OLE제어]OLE로 불러들여 쓰는 키를 제어하고 싶습니다.
- darkangel
- 2000.09.14 22:37
- 0 COMMENTS
- /
- 0 LIKES
QReport UPdate후 Chart 컴포넌트 사라짐.
- 초보
- •
- 2000.09.14 22:37
- 1 COMMENTS
- /
- 0 LIKES
왜 아니되는 거여.....
- 김하늘
  
  •
  
  2000.09.14 23:43
  
  초보 wrote: > 다른 컴에서 작업한 프로그램을 제 컴에 복사했구여.... > > 서버에는 ms sql7.0이구......
- 푸하하
- 2000.09.17 10:48
- 0 COMMENTS
- /
- 0 LIKES
퀵리포트의 호출과 data의 속성?

Demo
2000/09/14 23:24
Views398

Likes0

Comments3

Reports0
Tag List
수정
삭제
목록으로

←First Page

2250 2251 2252 2253 2254 2255 2256 2257 2258 2259

Last Page→