Index: AAPClient/UI/PopupScherm.pas =================================================================== diff -u -r63 -r114 --- AAPClient/UI/PopupScherm.pas (.../PopupScherm.pas) (revision 63) +++ AAPClient/UI/PopupScherm.pas (.../PopupScherm.pas) (revision 114) @@ -4,13 +4,16 @@ uses Winapi.Windows, Winapi.Messages, System.SysUtils, System.Variants, System.Classes, Vcl.Graphics, - Vcl.Controls, Vcl.Forms, Vcl.Dialogs, Vcl.StdCtrls; + Vcl.Controls, Vcl.Forms, Vcl.Dialogs, Vcl.StdCtrls, Vcl.Imaging.pngimage, + Vcl.ExtCtrls; type TfmPopupScherm = class(TForm) - btnPopupActie: TButton; lblWaarschuwing: TLabel; - btnPopupActie2: TButton; + Image1: TImage; + pnlbtnActie1: TPanel; + pnlbtnActie2: TPanel; + procedure pnlbtnActie1Click(Sender: TObject); private { Private declarations } public @@ -27,4 +30,9 @@ {$R *.dfm} +procedure TfmPopupScherm.pnlbtnActie1Click(Sender: TObject); +begin + Close; +end; + end.