Ok, to mam jeszcze jedno pytanie odnośnie tworzenia nowego okna, chciałbym aby po naciśnięciu button1, pokazało się nowe okno, w którym po podaniu konkretnych danych w polach edit1 i edit2, oraz naciśnięciu button1, logował się do programu, wracając do starego okna. Nie było by problemu, gdybym wiedział, jak w form1 odnieść się do form2.
Jest jeszcze taka sprawa, że po pokazaniu się okienka logowania (form2) pierwsze okno(form1) ma być nieaktywne, czyli form1.enabled:=false;
a po naciśnięciu button1 na form2, ta ma się ukryć, a form1.enabled:=true;
niestety, jeśli dodam unit2 do unit1 to do unit2 nie mogę już dodać unit1...
tak więc kolejny raz proszę o pomoc.
mam coś takiego w unit1:
procedure TForm1.Button1Click(Sender: TObject);
begin
form2.show;
form1.enabled:=false;
end;
i takiego w unit2:
procedure TForm2.Button1Click(Sender: TObject);
begin
if (edit1.text='przykladowylogin') and (edit2.text='przykladowehaslo') then form2.close;
end;
wiem już jak przenieść wartości z form2 do form1, i użyć form2 i jego obiekty w form1, ale nadal nie mogę użyć form1 w form2, przy dodawaniu unit1 do uses w unit 2, kompilator wywala:"Cricular unit reference between unit2 and unit1", czyli "zapętlona zależność" czy jakoś tak, więc nie mogę dodać, jednocześnie w unit1 i unit2, czy jest jakiś sposób by to obejść?