Oacle 동적 AdvStringGrid 완벽 한 예제(AdvStringGrid 사용 기법/Cells)

원 리 는 상수,줄 수,각 열의 속성 을 먼저 설명 한 다음 프로그램의 다른 과정 에서 이러한 상수 로 Cells 를 제어 하 는 것 이다.매우 편리 하여 수정 과 이식 에 편리 합 니 다!다음은 창 전체 코드 입 니 다.중간 에 설명 이 있 습 니 다.이 코드 는 동적 AdvStringGrid 의 완벽 한 예제 뿐만 아니 라 일반 창 에서 자주 사용 되 는 과정 도 있 습 니 다.창 을 초기 화하 고 새로 고침 하 는 과정 을 비교 합 니 다.이 창 은 다음 과 같이 간단하게 준비 하면 실 행 됩 니 다.1.TAdvStringGrid 를 추가 하고 strGrid 1 이 라 고 명명 합 니 다.2,설정:TAdvStringGrid-->option-->goEditing=true TAdvStringGrid--->enableGraphics=true 3,form 이름 을 form 1 로 변경 하거나 다음 코드 의 form 1 을 현재 창의 이름 으로 교체 합 니 다.4.다음 코드 를 원래 코드 로 덮어 씁 니 다.5,관련 다음 과정(창 과 strGrid 1 컨트롤 속성-이벤트 페이지 에서 관련 항목 을 더 블 클릭 하면 관련 이 완 료 됩 니 다.)FormCreate FormShow strGrid1CanEditCell strGrid1GetAlignment strGrid1GetCellColor strGrid1GetEditor Type

unit ENMA0101; 
interface 
uses 
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, 
Dialogs, Grids, AdvGrid; 
const 
cUnit_ID='ENMA0101'; //    ，       
//    ，    Cells    
cColQty1=8; 
//      ，  Cells     ，        ： 
{0-   
1-   
2-   
3-   
4-   
5-   
6-   
7-   
8-          
9-      
10-    
11-     
12-      
13-      } 
cColProp1: array[0..cColQty1-1] of array[0..13] of string=( //    
//                    
// 0 1 2 3 4 5 6 7 8 9 10 11 
('Y','N','N','E','R','clBtnFace','25','NO.','N','','','0','N','0'), // 0 
('Y','N','N','E','L','clInfoBk','150','Part No','Y','POJBSUB','PART_NO','30','Y','2'), // 1 
('Y','Y','N','E','R','clWindow','60','Qty','Y','POJBSUB','ORDER_QUANTITY','9','Y','3'), // 2 
('Y','N','N','E','C','clMoneyGreen','40','U/M','Y','POJBSUB','UNIT_OF_MEASURE','2','Y','4'), // 3 
('Y','Y','N','C','C','clWindow','60','Dept','Y','POJBSUB','DELIVERY_TO_DEPT','3','Y','5'), // 4 
('Y','Y','N','C','C','clWindow','50','Grp','Y','POJBSUB','GROUP_A','3','Y','7'), // 5 
('Y','N','N','E','L','clSkyBlue','160','Part Name','Y','POJBSUB','PART_NAME_C','70','Y','8'), // 6 
('Y','Y','N','M','L','clWindow','50','DF','Y','POJBSUB','VENDOR_NO','5','Y','6') // 7 
); 
//    ，    ，        
cC1NO=0; 
cC1PART_NO=1; 
cC1ORDER_QUANTITY=2; 
cC1UNIT_OF_MEASURE=3; 
cC1DELIVERY_TO_DEPT=4; 
cC1GROUP_A=5; 
cC1PART_NAME_C=6; 
cC1Data_Flag=7; 
type 
TForm1 = class(TForm) 
strGrid1: TAdvStringGrid; 
procedure FormCreate(Sender: TObject); 
procedure FormShow(Sender: TObject); 
procedure strGrid1CanEditCell(Sender: TObject; ARow, 
ACol: Integer; var CanEdit: Boolean); 
procedure strGrid1GetAlignment(Sender: TObject; ARow, 
ACol: Integer; var AAlignment: TAlignment); 
procedure strGrid1GetCellColor(Sender: TObject; ARow, 
ACol: Integer; AState: TGridDrawState; ABrush: TBrush; AFont: TFont); 
procedure strGrid1GetEditorType(Sender: TObject; ACol, 
ARow: Integer; var AEditor: TEditorType); 
private 
{ Private declarations } 
procedure prClear(pMode:byte); 
procedure prRefresh(pMode: byte); 
procedure prStgInitialize1; 
procedure prStg1Clear; 
public 
{ Public declarations } 
end; 
var 
Form1: TForm1; 
implementation 
{$R *.dfm} 
//          
procedure TForm1.FormCreate(Sender: TObject); 
Var 
i,j:integer; 
begin 
//       ，    CheckedBox 
strGrid1.RowCount:=1000; 
//  cColProp1[3,J]='C'     CheckedBox   
for i:=1 to strGrid1.rowcount-1 do begin 
//             ，   checkbox ，      。 
{for j:=0 to cColQty1-1 do begin 
if cColProp1[3,J]='C' then 
strGrid1.AddCheckBox(j,i,false,false); 
end;} 
//          。 
strGrid1.AddCheckBox(4,i,false,false); 
strGrid1.AddCheckBox(5,i,false,false); 
end; 
end; 
//          
procedure TForm1.FormShow(Sender: TObject); 
begin 
form1.caption:= cUnit_ID + ' ' + form1.caption; 
prClear(0); 
end; 
//       
procedure TForm1.prClear(pMode:byte); 
begin 
case pMode of 
0:begin 
prStgInitialize1; 
end; 
1:begin 
prStg1Clear; 
end; 
end; 
//       
end; 
//       
procedure Tform1.prRefresh(pMode: byte); 
begin 
//       
end; 
//AdvStringGrid      
procedure TForm1.prStgInitialize1; 
Var 
I:Integer; 
begin 
//             
strGrid1.RowCount:=2; 
strGrid1.ColCount:=cColQty1; 
strGrid1.FixedRows:=1; 
strGrid1.FixedCols:=1; 
//          
for I:=0 to cColQty1-1 do begin 
strGrid1.Cells[I,0]:=cColProp1[I,7]; //   
if cColProp1[I,0]='Y' then 
strGrid1.ColWidths[I]:=strToInt(cColProp1[I,6]) //   
else 
strGrid1.ColWidths[I]:=0; //   
end; 
end; 
//AdvStringGrid     
procedure TForm1.prStg1Clear; 
Var 
I:integer; 
J:integer; 
begin 
for I:=1 to strGrid1.RowCount-1 do begin 
for J:=0 to cColQty1-1 do begin 
strGrid1.Cells[J,I]:=''; 
strGrid1.SetCheckBoxState(J,I,false); 
end; 
end; 
strGrid1.RowCount:=2; 
end; 
//              
procedure TForm1.strGrid1CanEditCell(Sender: TObject; ARow, 
ACol: Integer; var CanEdit: Boolean); 
Var 
I:integer; 
begin 
//     
{if stgPList.Cells[cNCols1[3]-2,ARow]='1' then 
CanEdit:=false 
else begin 
if ACol=cNCols1[2]-2 then 
CanEdit:=true 
else 
CanEdit:=false; 
end;} 
{if aRow=0 then 
CanEdit:=false 
else if} 
//        
for I:=0 to cColQty1 do begin 
if ACol=I then begin 
if cColProp1[I,1]='Y' then CanEdit:=true; 
if cColProp1[I,1]='N' then CanEdit:=False; 
end; 
end; 
//         cC1Data_Flag            ，           。 
{if (strGrid1.cells[cC1Data_Flag,ARow]='') or (strGrid1.cells[cC1Data_Flag,ARow]='C') then begin 
canEdit:=false; 
exit; 
end else begin 
for I:=0 to cColQty1 do begin 
if ACol=I then begin 
if strGrid1.cells[cC1Data_Flag,aRow]='C' then CanEdit:=false 
else begin 
if cColProp1[I,1]='Y' then CanEdit:=true; 
if cColProp1[I,1]='N' then CanEdit:=False; 
end; 
end; 
end; 
end;} 
end; 
//            
procedure TForm1.strGrid1GetAlignment(Sender: TObject; ARow, ACol: Integer; var AAlignment: TAlignment); 
Var 
I:integer; 
begin 
//     
{if ARow=0 then AAlignment:=tacenter 
else begin 
case ACol of 
0: AAlignment:=taRightJustify; 
1: AAlignment:=taCenter; 
2: AAlignment:=taCenter; 
3: AAlignment:=taRightJustify; 
4: AAlignment:=taCenter; 
6: AAlignment:=taCenter; 
8: AAlignment:=taCenter; 
9: AAlignment:=taCenter; 
else AAlignment:=taLeftJustify; 
end; 
end; } 
//        
if ARow=0 then AAlignment:=taCenter 
else begin 
for I:=0 to cColQty1-1 do begin 
if ACol=I then begin 
//case strToInt(cColProp1[I,4]) 
if cColProp1[I,4]='C' then AAlignment:=taCenter; 
if cColProp1[I,4]='L' then AAlignment:=taLeftJustify; 
if cColProp1[I,4]='R' then AAlignment:=taRightJustify; 
end; 
end; 
end; 
end; 
//          
procedure TForm1.strGrid1GetCellColor(Sender: TObject; ARow, 
ACol: Integer; AState: TGridDrawState; ABrush: TBrush; AFont: TFont); 
Var 
I:integer; 
begin 
//     
{if ARow>0 then begin 
Case ACol of 
1: ABrush.Color:=RGB(227,249,248); 
2: ABrush.Color:=RGB(250,232,193); 
3: ABrush.Color:=RGB(227,249,248); 
4: ABrush.Color:=RGB(250,232,193); 
12: ABrush.Color:=RGB(227,249,248); 
14: ABrush.Color:=RGB(250,232,193); 
24: ABrush.Color:=RGB(227,249,248); 
48: ABrush.Color:=RGB(250,232,193); 
51: ABrush.Color:=RGB(227,249,248); 
End; 
end;} 
//        
if ARow=0 then 
abrush.Color:=clBtnFace //       
else begin 
for I:=0 to cColQty1 do begin //              
if ACol=I then abrush.Color:=StringToColor(cColProp1[I,5]); 
end; 
end; 
end; 
//            
procedure TForm1.strGrid1GetEditorType(Sender: TObject; ACol, 
ARow: Integer; var AEditor: TEditorType); 
Var 
I:integer; 
begin 
for I:=0 to cColQty1 do begin 
if ACol=I then begin 
if cColProp1[I,3]='M' then begin 
AEditor:=edComBoEdit; 
strGrid1.ClearComboString; 
strGrid1.AddComboString('Y :   '); 
strGrid1.AddComboString('N :   '); 
end; 
end; 
end; 
end; 
end. 

(이상 과정 은 Delphi 6 에서 테스트 에 통과 되 었 습 니 다.)이렇게 하면 Cells 와 관련 된 속성 을 수정 하면 배열 cColProp 1 과 관련 된 값 만 수정 하면 실현 할 수 있어 편리 하 다.cColProp 1 을 수정 하 는 것 에 대해 서 는 위의 코드 창 에서 직접 수정 할 수 있 습 니 다.그러나 열 이 상당히 많 으 면 이렇게 고 치 는 것 도 상당히 번 거 롭 고 잘못 고 치 는 것 도 불편 합 니 다!이에 대해 나 는 첨부 파일 과 같은 엑셀 템 플 릿 을 만 들 었 다.이 템 플 릿 을 통 해 정적 배열 cColProp 1 과 정적 열 번 호 를 자동 으로 생 성 할 수 있 고 수정 하기 도 직관 적 이 며 편리 합 니 다.수정 후 생 성 된 정적 배열 cColProp 1 과 정적 열 번 호 를 코드 에 복사 하면 됩 니 다.동적 셀 설정 도구 표http://xiazai.jb51.net/200906/other/DynamicCells_Setting.xls