Seuraavaksi lisätään luokan käyttö omaan lomakkeeseemme, harmaalla on esitetty koodiin edellisen kerran jälkeen tulleet muutokset:
unit puh; interface uses ... dynkent; type TFormPuh = class(TForm) ... ScrollBoxLomake: TScrollBox; procedure ButtonHaeClick(Sender: TObject); procedure FormCreate(Sender: TObject); procedure FormDestroy(Sender: TObject); procedure ScrollBoxLomakeResize(Sender: TObject); private { Private declarations } kentat : cKentat; procedure TeeHaku(s:string); public { Public declarations } end; var FormPuh: TFormPuh; implementation {$R *.DFM} procedure TFormPuh.TeeHaku(s:string); begin kentat.Siivoa; DBEditNimi.DataField := ''; QueryPuh.Close; QueryPuh.SQL.Clear; QueryPuh.SQL.Add(s); QueryPuh.Open; DBEditNimi.DataField := QueryPuh.Fields[0].FieldName; kentat.LisaaKaikki(DataSourcePuh); end; procedure TFormPuh.ButtonHaeClick(Sender: TObject); begin TeeHaku(EditHakuehto.Text); end; procedure TFormPuh.FormCreate(Sender: TObject); begin kentat := cKentat.Create(ScrollBoxLomake); TeeHaku(EditHakuehto.Text); end; procedure TFormPuh.FormDestroy(Sender: TObject); begin kentat.free; end; procedure TFormPuh.ScrollBoxLomakeResize(Sender: TObject); begin kentat.SetEditLeveys(ScrollBoxLomake.ClientWidth-100); end; end.