Index: AAPClient/UI/HomeScherm.pas =================================================================== diff -u -r114 -r123 --- AAPClient/UI/HomeScherm.pas (.../HomeScherm.pas) (revision 114) +++ AAPClient/UI/HomeScherm.pas (.../HomeScherm.pas) (revision 123) @@ -11,10 +11,11 @@ TfmHomeScherm = class(TfmDrieKnoppenScherm) btnHernoemPallet: TButton; btnAfmeldenProducten: TButton; - procedure FormShow(Sender: TObject); + btnUitloggen: TButton; procedure actAfsluitenExecute(Sender: TObject); procedure btnAfmeldenProductenClick(Sender: TObject); procedure btnHernoemPalletClick(Sender: TObject); + procedure btnUitloggenClick(Sender: TObject); private { Private declarations } public @@ -49,10 +50,10 @@ Self.ModalResult := mrHernoemPallet; end; -procedure TfmHomeScherm.FormShow(Sender: TObject); +procedure TfmHomeScherm.btnUitloggenClick(Sender: TObject); begin - btnLinksOnder.Action := actAfsluiten; inherited; + Self.ModalResult := mrLogin; end; end.