|
Ho creato una griglia e una trackbar. Quando sposto la trackbar vorrei cambiasse il numero di celle della griglia. Il problema è che non so come associare l'evento onchange alla procedura che ho scritto
begin
Application.Initialize;
Application.CreateForm(TForm1, Form1);
form1.caption:='tabella di colori';
form1.position:=poScreenCenter;
form1.WindowState:=wsmaximized;
with ttrackBar.create(form1) do
begin
parent:=form1;
Frequency:=1;
LineSize:=1;
max:=255;
min:=1;
PageSize:=1;
PositionToolTip:=ptBottom;
N:=Position;
SelEnd:=255;
Selstart:=0;
ShowSelRange:=true;
SliderVisible:=true;
TickStyle:=tsAuto;
align:=albottom;
//onchange:=TrackBar1Change;
end;
with TdrawGrid.Create(form1) do
begin
parent:=form1;
borderstyle:=bsSingle;
ColCount:=n ; //impostare a n
RowCount:=n; //impostare a n
DefaultColWidth:=5;
DefaultRowHeight:=5;
FixedCols:=0;
FixedRows:=0;
GridLineWidth:=1;
align:=alTop;
end;
application.Run;
| 
