Index: AAPClient/UI/HomeScherm.pas =================================================================== diff -u -r123 -r240 --- AAPClient/UI/HomeScherm.pas (.../HomeScherm.pas) (revision 123) +++ AAPClient/UI/HomeScherm.pas (.../HomeScherm.pas) (revision 240) @@ -28,32 +28,32 @@ implementation uses - UiContext; + UiContext, ProScanMain; {$R *.dfm} procedure TfmHomeScherm.actAfsluitenExecute(Sender: TObject); begin inherited; - Self.ModalResult := mrLogin; + (Self.Parent.Parent.Parent As TfmProScanHoofdscherm).NavigeerNaar(mrLogin); end; procedure TfmHomeScherm.btnAfmeldenProductenClick(Sender: TObject); begin inherited; - Self.ModalResult := mrPallet; + (Self.Parent.Parent.Parent As TfmProScanHoofdscherm).NavigeerNaar(mrPallet); end; procedure TfmHomeScherm.btnHernoemPalletClick(Sender: TObject); begin inherited; - Self.ModalResult := mrHernoemPallet; + (Self.Parent.Parent.Parent As TfmProScanHoofdscherm).NavigeerNaar(mrHernoemPallet); end; procedure TfmHomeScherm.btnUitloggenClick(Sender: TObject); begin inherited; - Self.ModalResult := mrLogin; + (Self.Parent.Parent.Parent As TfmProScanHoofdscherm).NavigeerNaar(mrLogin); end; end.