앞에 코딩을 안하더라도

스프리드 그리드 프로그램에서요

그 옵션을 잘 확인해보세요 Genenal 제너럴 옵션(?)

인가 그 부분보면 수정안되도록 수정할수도 있구요

클릭하면 edit 화면으로 안들어 가게 할수도 있으며

여러가지 옵션이 많습니다. 여기에서 찾아보시면

코딩안하시더라도 쉽게 해결할 수 있을 겁니다.

참고가 되셨을런지......화이팅~

김대희 wrote:

> 델파이 유지보수작업 하는 초보입니다.

> 스트링그리드 2 칼럼에 하나의 칼럼을 추가해서 열을 추가 했는데요...

> 실행시 스트링그리드의 각 칼럼에 마우스 클릭하면 커서가 생겨서 입력할 수 있게

> 됩니다. 그런데 제가 만든 칼럼에다 마우스 클릭하면 제 칼럼이 사라지더군여..

>

> 어떻해 해야 할지 알려주세요.

>

>



unit Unit1;



interface



uses

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

Grids, StdCtrls;



type

TForm1 = class(TForm)

Button1: TButton;

Button2: TButton;

StringGrid1: TStringGrid;

Button3: TButton;

Button4: TButton;

procedure Button1Click(Sender: TObject);

procedure Button2Click(Sender: TObject);

procedure Button3Click(Sender: TObject);

procedure Button4Click(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 InsertColToStringGrid( Value : TStringGrid; Col : Integer );

var

Soo : TGridRect;

begin

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

TMyGrid( Value ).MoveColumn( Pred( Value.ColCount ), Col );

Soo.Left := 1;

Soo.Top := Col;

Soo.Right := 1;

Soo.Bottom := Col;

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;



procedure TForm1.Button3Click(Sender: TObject);

begin

InsertColToStringGrid( StringGrid1, 4 );

end;



procedure TForm1.Button4Click(Sender: TObject);

begin

TMyGrid(stringgrid1 ).DeleteColumn(stringgrid1.Col);

end;



end.