procedure TForm1.Button1Click(Sender: TObject);
begin //선택 전부 해제
DBGrid1.SelectedRows.Clear;
DBGrid1.SelectedIndex := -1;
end;
procedure TForm1.Button2Click(Sender: TObject);
var
i : Integer;
begin //전체 선택
with Query1 do
begin
First;
for i := 0 to RecordCount - 1 do
begin
DBGrid1.SelectedRows.CurrentRowSelected := True;
Next;
end;
end;
end;
만약 특정부분만 선택해야 한다면 버튼2클릭 이벤트에서
for 문 다음에 조건 주시면 될거에요
그럼..
DBGrid 에는 Query1 이 연결되어 있을때입니다.
procedure TForm1.Button1Click(Sender: TObject);
begin //선택 전부 해제
DBGrid1.SelectedRows.Clear;
DBGrid1.SelectedIndex := -1;
end;
procedure TForm1.Button2Click(Sender: TObject);
var
i : Integer;
begin //전체 선택
with Query1 do
begin
First;
for i := 0 to RecordCount - 1 do
begin
DBGrid1.SelectedRows.CurrentRowSelected := True;
Next;
end;
end;
end;
만약 특정부분만 선택해야 한다면 버튼2클릭 이벤트에서
for 문 다음에 조건 주시면 될거에요
그럼..