maar goed ik ben een beetje aan het knutselen geweest en komt uiteindelijk tot dit resultaat wat dus niet werkt. hij blijft onzichtbaar de knop. kan iemand zeggen wat er verkeerd is?
in het hoofdmenu-form
Code:
procedure Thoofdmenu.FormCreate(Sender: TObject);
begin
if backup then
begin
speedbutton2.visible:=true;
end
else
speedbutton2.visible:=false;
end;
en op het inlog-form
Code:
procedure Tinloggen.Button1Click(Sender: TObject);
var
inlognaam:string;
begin
inlognaam:=edit1.text;
lid.setloginstatus(ADOQuery1,edit1,edit2);
if lid.getloginstatus then
begin
if inlognaam='admin' then
begin
Unit1.hoofdmenu.backup:=true;
hoofdmenu.show;
edit1.text:='';
edit2.text:='';
inloggen.hide;
end
else
Unit1.hoofdmenu.backup:=false;
hoofdmenu.show;
edit1.text:='';
edit2.text:='';
inloggen.hide;
end
else
Showmessage('Inlognaam en/of wachtwoord zijn onjuist');
edit1.text:='';
edit2.text:='';
end;
waar heb ik een fout wie ik over het hoofd zie?
Bookmarks