Index: VerpakkingsDefinitie/Main.pas =================================================================== diff -u -r547 -r549 --- VerpakkingsDefinitie/Main.pas (.../Main.pas) (revision 547) +++ VerpakkingsDefinitie/Main.pas (.../Main.pas) (revision 549) @@ -6,11 +6,12 @@ Winapi.Windows, Winapi.Messages, System.SysUtils, System.Variants, System.Classes, Vcl.Graphics, Vcl.Controls, Vcl.Forms, Vcl.Dialogs, Vcl.ExtCtrls, - Subscherm, LoginScherm, + Subscherm, LoginScherm, ZoekProductenScherm, ApplicationContext; const FORMLOGINID = 1; + FORMZOEKPRODUCTENID = 2; type TFormMain = class(TForm) @@ -57,6 +58,8 @@ case schermId of FORMLOGINID: fHuidigScherm := TFormLogin.Create(PanelMain, fAppContext); + FORMZOEKPRODUCTENID: + fHuidigScherm := TFormZoekProducten.Create(PanelMain, fAppContext); end; fHuidigScherm.Parent := PanelMain;