- procedure TForm1.Button1Click(Sender: TObject);
- var i,n:integer;
- Mat : TStringGrid;
- begin
- n:=strtoint(edit1.text);
- for i:=1 to n do
- TStringGrid(FindComponent('Mat'+inttostr(i))).free; //pour effacer les stringgrid existant
-
- Mat := TStringGrid.Create(self);
- Mat.Parent := Self;
- Mat.Name := 'Mat1';
- Mat.Width := 235;
- Mat.Height := 130;
- Mat.Left := 18;
- Mat.Top := 30;
- Mat.Options := [goFixedVertLine,goFixedHorzLine,goVertLine,goHorzLine,goRangeSelect,goEditing,goTabs];
- Mat.DefaultColWidth :=45;
-
- Mat := TStringGrid.Create(self);
- Mat.Parent := Self;
- Mat.Name := 'Mat2';
- Mat.Width := 235;
- Mat.Height := 130;
- Mat.Left := 280;
- Mat.Top := 30;
- Mat.Options := [goFixedVertLine,goFixedHorzLine,goVertLine,goHorzLine,goRangeSelect,goEditing,goTabs];
- Mat.DefaultColWidth :=45;
-
- i:=3;
- while (i<= n) do
- begin Mat := TStringGrid.Create(self);
- Mat.Parent := Self;
- Mat.Name := 'Mat'+inttostr(i); // un nom différent pour chaque stringgrid créer
- Mat.Width := 235;
- Mat.Height := 130;
- Mat.Options := [goFixedVertLine,goFixedHorzLine,goVertLine,goHorzLine,goRangeSelect,goEditing,goTabs];
- Mat.DefaultColWidth :=45;
- if ((i mod 2) = 0) then
- begin Mat.Left := 280;
- Mat.Top:= TStringGrid(FindComponent('Mat'+inttostr(i-2))).Top+TStringGrid(FindComponent('Mat'+inttostr(i-2))).Height+10;
- end
- else begin Mat.Left := 18;
- Mat.Top := TStringGrid(FindComponent('Mat'+inttostr(i-2))).Top+TStringGrid(FindComponent('Mat'+inttostr(i-2))).Height+10;
- end;
-
- i:=i+1;
- end;
-
- end;
procedure TForm1.Button1Click(Sender: TObject);
var i,n:integer;
Mat : TStringGrid;
begin
n:=strtoint(edit1.text);
for i:=1 to n do
TStringGrid(FindComponent('Mat'+inttostr(i))).free; //pour effacer les stringgrid existant
Mat := TStringGrid.Create(self);
Mat.Parent := Self;
Mat.Name := 'Mat1';
Mat.Width := 235;
Mat.Height := 130;
Mat.Left := 18;
Mat.Top := 30;
Mat.Options := [goFixedVertLine,goFixedHorzLine,goVertLine,goHorzLine,goRangeSelect,goEditing,goTabs];
Mat.DefaultColWidth :=45;
Mat := TStringGrid.Create(self);
Mat.Parent := Self;
Mat.Name := 'Mat2';
Mat.Width := 235;
Mat.Height := 130;
Mat.Left := 280;
Mat.Top := 30;
Mat.Options := [goFixedVertLine,goFixedHorzLine,goVertLine,goHorzLine,goRangeSelect,goEditing,goTabs];
Mat.DefaultColWidth :=45;
i:=3;
while (i<= n) do
begin Mat := TStringGrid.Create(self);
Mat.Parent := Self;
Mat.Name := 'Mat'+inttostr(i); // un nom différent pour chaque stringgrid créer
Mat.Width := 235;
Mat.Height := 130;
Mat.Options := [goFixedVertLine,goFixedHorzLine,goVertLine,goHorzLine,goRangeSelect,goEditing,goTabs];
Mat.DefaultColWidth :=45;
if ((i mod 2) = 0) then
begin Mat.Left := 280;
Mat.Top:= TStringGrid(FindComponent('Mat'+inttostr(i-2))).Top+TStringGrid(FindComponent('Mat'+inttostr(i-2))).Height+10;
end
else begin Mat.Left := 18;
Mat.Top := TStringGrid(FindComponent('Mat'+inttostr(i-2))).Top+TStringGrid(FindComponent('Mat'+inttostr(i-2))).Height+10;
end;
i:=i+1;
end;
end;