김영대님 홈에서 copy한 내용입니다..



아래 소스는 multi로 select된 레코드를의 첫번째 필드를

화면에 보여주는 예제입니다.

아래 소스중 "showmessage(DBGrid1.Datasource.Dataset.Fields[0].AsString);"

이 부분이 첫번째 필드를 사용하는 부분이므로 다른 필드로 적용하시면 됩니다.





unit Unit1;



interface



uses

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

StdCtrls, Grids, DBGrids, Db, DBTables;



type

TForm1 = class(TForm)

Database1: TDatabase;

Query1: TQuery;

DataSource1: TDataSource;

DBGrid1: TDBGrid;

Button1: TButton;

procedure Button1Click(Sender: TObject);

private

{ Private declarations }

public

{ Public declarations }

end;



var

Form1: TForm1;



implementation

{$R *.DFM}



// DBGrid의 Option 프로퍼티에 MultiSelect를 포함합니다.



procedure TForm1.Button1Click(Sender: TObject);

var

x: word;

TempBookmark: TBookMark;

begin

// data-aware 컴포넌트들의 화면출력을 disable시킨다

DBGrid1.Datasource.Dataset.DisableControls;



// SelectedRows 프로퍼티는 DBGrid의 multi select된 레코드들의

// bookmark 를 가지고 있습니다(TBookmarkList 입니다)

with DBgrid1.SelectedRows do

if Count > 0 then

begin

TempBookmark := DBGrid1.Datasource.Dataset.GetBookmark;

for x := 0 to Count - 1 do

begin

if IndexOf(Items[x]) > -1 then

begin

DBGrid1.Datasource.Dataset.Bookmark := Items[x];

showmessage(DBGrid1.Datasource.Dataset.Fields[0].AsString);

end;

end;

end;

DBGrid1.Datasource.Dataset.GotoBookmark(TempBookmark);

DBGrid1.Datasource.Dataset.FreeBookmark(TempBookmark);

DBGrid1.Datasource.Dataset.EnableControls;

end;



도움이 되길..



휴가나온군바리 wrote:

> 휴가나온 군바립니다. 육군이지요....

> 군(계룡대)에서 델파이로 업무용프로그램을 짜고있습니다.

> (델파이도 어찌어찌해서 구한게 3.0입니다. -_-;;;)

> 한델에서 많은 정보를 구하고 싶었는데, 인터넷피씨가 보급됨에도 불구하고

> 개인적 업무환경으로 인해(문서수발실에서 일하고있어요!!!)

> 인터넷에 접속하기가 거의 어렵네요...관련서적등도 구하기 힘들고..

> 휴가나온김에 많이 공부하고 갈랍니다.

>

> 각설하고,

>

> 디비그리드에서 데이타 오픈후(쿼리를 쓰고있습니다.)

> 나온 값들을 멀티셀렉트를 통하여 선택하면

> 선택된 값들을 모두 삭제하고 싶어요...

> 어찌해야 할지...

>

> 그리고 또 궁금한게 있는데... 기본적인 스트링그리드나 디비그리드안에 별도의

> 추가없이 라디오버튼등의 객체삽입이 가능한가요?

>

> 조언부탁드립니다.

>

>

>