Einzelnen Beitrag anzeigen

Minz

Registriert seit: 19. Dez 2002
476 Beiträge
 
#7
  Alt 23. Mär 2003, 14:57
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
  Mit Zitat antworten Zitat