hihi, ich meine die grauen Kästen hier im Forum.
Darin ist der Code so schön formatiert, bei mir ist er ja jetzt
komplett linksbündig und schlecht lesbar.
Habs gefunden!
ich habs nochmal mit einer neuen Anwendung probiert, wo nur der Kram drinsteht, den ich jetzt gepostet habe, da ist das gleiche Problem.
Unit1:
Code:
procedure TForm1.PageControl1Change(Sender: TObject);
begin
if pagecontrol1.tabindex=1 then begin
form2.visible:=true;
form1.Visible:=false;
end;
end;
Unit2:
Code:
procedure TForm2.Button1Click(Sender: TObject);
begin
form1.pagecontrol1.tabindex:=0; //Hier wechsel ich von tabindex=1 zu tabindex=0
form1.visible:=true;
form2.Visible:=false;
application.processmessages;
end;
Das ist jetzt tatsächlich der gesamte Code!!
Minz