Index: AAPClient/ProScanMain.pas =================================================================== diff -u -r90 -r94 --- AAPClient/ProScanMain.pas (.../ProScanMain.pas) (revision 90) +++ AAPClient/ProScanMain.pas (.../ProScanMain.pas) (revision 94) @@ -19,6 +19,7 @@ fBestaandePalletScherm: TForm; fDnaCodeScherm: TForm; fInfoLogScherm: TForm; + fHernoemPalletScherm: TForm; procedure HuidigeGebruikerAfmelden; public end; @@ -30,7 +31,7 @@ uses LoginScherm, GebruikerService, HomeScherm, DrieKnoppenScherm, PalletScherm, - BestaandePalletscherm, DnaCodeScherm, InfoLogScherm, Images; + BestaandePalletscherm, DnaCodeScherm, InfoLogScherm, Images, HernoemPalletScherm; {$R *.dfm} @@ -44,6 +45,7 @@ fBestaandePalletScherm := TfmBestaandePalletScherm.Create(Self); fDnaCodeScherm := TfmDnaCodeScherm.Create(Self); fInfoLogScherm := TfmInfoLogScherm.Create(Self); + fHernoemPalletScherm := TfmHernoemPalletScherm.Create(Self); fHuidigScherm := fLoginScherm; end; @@ -63,7 +65,7 @@ mrLogin : fHuidigScherm := fLoginScherm; mrHome : fHuidigScherm := fHomeScherm; mrPallet : fHuidigScherm := fPalletScherm; - mrNo : ShowMessage('Hernoem Pallet'); + mrHernoemPallet : fHuidigScherm := fHernoemPalletScherm; mrBestaandePallet : fHuidigScherm := fBestaandePalletScherm; mrDnaCode : fHuidigScherm := fDnaCodeScherm; mrInfoLog : fHuidigScherm := fInfoLogScherm;