Index: AAPClient/UI/HomeScherm.pas =================================================================== diff -u -r241 -r242 --- AAPClient/UI/HomeScherm.pas (.../HomeScherm.pas) (revision 241) +++ AAPClient/UI/HomeScherm.pas (.../HomeScherm.pas) (revision 242) @@ -35,24 +35,28 @@ procedure TfmHomeScherm.actAfsluitenExecute(Sender: TObject); begin inherited; + PostMessage(Self.Handle,WM_Close,0,0); (Self.Parent.Parent As TfmProScanHoofdscherm).NavigeerNaar(mrLogin); end; procedure TfmHomeScherm.btnAfmeldenProductenClick(Sender: TObject); begin inherited; + PostMessage(Self.Handle,WM_Close,0,0); (Self.Parent.Parent As TfmProScanHoofdscherm).NavigeerNaar(mrPallet); end; procedure TfmHomeScherm.btnHernoemPalletClick(Sender: TObject); begin inherited; + PostMessage(Self.Handle,WM_Close,0,0); (Self.Parent.Parent As TfmProScanHoofdscherm).NavigeerNaar(mrHernoemPallet); end; procedure TfmHomeScherm.btnUitloggenClick(Sender: TObject); begin inherited; + PostMessage(Self.Handle,WM_Close,0,0); (Self.Parent.Parent As TfmProScanHoofdscherm).NavigeerNaar(mrLogin); end;