1. 쿼리카운트를 해서 스트링그리드에 뿌려질만큼 1컬럼에 체크박스를 넣어줌
if SVdm.QryMember.RecordCount > 0 then
begin
Grid.AddCheckBox(1,i,false,false);
Grid.SetCheckBoxState(1,i,false);
end;
2. TadvStringGird.option 프로퍼티의 goEditing := true;
3. 상단에 전체선택 체크박스 하나 놓고 클릭시 전체선택 및 해제 코드 추가
procedure TformMember.suiCheckBox1Click(Sender: TObject);
var i : integer;
begin
if (suiCheckBox1.Checked = true) then
begin
for i := 1 to SVdm.QryMember.RecordCount do
begin
grid.SetCheckBoxState(1,i,true);
end;
end
else
begin
for i := 1 to SVdm.QryMember.RecordCount do
begin
grid.SetCheckBoxState(1,i,false);
end;
end;
end;
'오래된 글들 > Gentlecat's Job' 카테고리의 다른 글
명확한 타겟(주요고객)을 설정하라! (0) | 2008.11.21 |
---|---|
샘플 사이트 정리하기 (0) | 2008.11.21 |
다시 인터넷 황금기가 찾아올까? (0) | 2008.11.19 |
Delphi7 퀵리포트 설치 (0) | 2008.11.19 |
실행파일 실행시 파라미터값 전달해주기 (0) | 2008.11.19 |
폼 얼지 않게 sleep 주기 (0) | 2008.11.19 |
파일복사 (1) | 2008.11.19 |
파일삭제 함수 (0) | 2008.11.19 |
grid 첫 데이터 선택하기 (0) | 2008.11.19 |
edit 숫자만 입력받기 (0) | 2008.11.19 |