1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 34 35 36 37 38 39 40 41 42 43 44 45
| unit IWUnit1;
{PUBDIST}
interface
uses
IWAppForm, IWApplication, IWTypes, Classes, Controls, IWControl,
IWTreeview, Forms, IWContainer, IWRegion, IWCompButton, IWCompEdit,sysutils;
type
TformMain = class(TIWAppForm)
IWRegion1: TIWRegion;
IWTreeView1: TIWTreeView;
IWButton1: TIWButton;
procedure IWAppFormCreate(Sender: TObject);
procedure IWButton1Click(Sender: TObject);
public
end;
implementation
{$R *.dfm}
uses
ServerController;
procedure TformMain.IWAppFormCreate(Sender: TObject);
var i:integer;
begin
for i:=1 to 400 do
begin
with iwtreeview1.Items.Add do
begin
end;
end;
end;
procedure TformMain.IWButton1Click(Sender: TObject);
begin
iwtreeview1.Items.Items[200].Caption:='ok';
// comment aller visuellement à cette position ?
end;
end. |
Partager