정동일 wrote:

> 안녕하세요?

> 정동일입니다.

>

> StringGrid에 있는 데이터중에서 한개의 Row를 선택해서 그 데이터만을 삭제하려고 합니다.

>

> 어떻게 해야 하는지 좀 알려주시기 바랍니다.

>

> 그럼.



나름대로의 새로운 방법입니다.



unit Unit1;



interface



uses

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

Grids, StdCtrls;



type

TForm1 = class(TForm)

Button1: TButton;

Button2: TButton;

StringGrid1: TStringGrid;

procedure Button1Click(Sender: TObject);

procedure Button2Click(Sender: TObject);





private

{ Private declarations }

public

{ Public declarations }

end;



var

Form1: TForm1;

type

TMyGrid = class( TStringGrid ); // Dummy Class

implementation



{$R *.DFM}



procedure InsertRowToStringGrid( Value : TStringGrid; Row : Integer );

var

Soo : TGridRect;

begin

Value.RowCount := Succ( Value.RowCount );

TMyGrid( Value ).MoveRow( Pred( Value.RowCount ), Row );

Soo.Left := 1;

Soo.Top := Row;

Soo.Right := 1;

Soo.Bottom := Row;

Value.Selection := Soo;

end;







procedure TForm1.Button1Click(Sender: TObject);

begin

InsertRowToStringGrid( StringGrid1, 2 );



end;



procedure TForm1.Button2Click(Sender: TObject);

begin

TMyGrid(stringgrid1 ).deleterow(stringgrid1.Row);

end;



end.