[Delphi] Wizard (als in Cantu) backbutton werkt niet

[Oscar Mopperkont]

Ik ben een wizard aan het maken, en gebruik daarvoor de code zoals die in Mastering Delphi 6 van Cantu staat. Maar ik heb volgens mij alles hetzelfde, en toch werkt de backbutton niet. Hij springt niet terug naar de vorige pagina. Ik zit er al een uur op te staren maar ik zie echt niet wat ik verkeerd doe. Toch doe ik dat, anders zou het immers wel werken

Wie kan mij aangeven wat ik fout doe?

Delphi:

unit Wizard;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls, ComCtrls, ExtCtrls;

type
  TfrWizard = class(TForm)
    PageControl1: TPageControl;
    TabSheet1: TTabSheet;
    TabSheet2: TTabSheet;
    ...
    procedure btnCancelClick(Sender: TObject);
    procedure FormClose(Sender: TObject; var Action: TCloseAction);
    procedure btnNext1Click(Sender: TObject);
    procedure btnBackClick(Sender: TObject);
    procedure FormCreate(Sender: TObject);
    procedure FormDestroy(Sender: TObject);
  private
    { Private declarations }
    BackPages: TList;
  public
    { Public declarations }
    procedure MoveTo (TabSheet: TTabSheet);
  end;

var
  frWizard: TfrWizard;

implementation

uses Main;

{$R *.dfm}

procedure TfrWizard.FormCreate(Sender: TObject);
begin
  BackPages := TList.Create;
  // always start with the first page
  PageControl1.ActivePage := TabSheet1;
end;


procedure TfrWizard.btnBackClick(Sender: TObject);
var
  LastPage: TTabSheet;
begin
  // get the last page and jump to it
  LastPage := TTabSheet (BackPages [BackPages.Count - 1]);
  PageControl1.ActivePage := LastPage;
  // delete the last page from the list
  BackPages.Delete (BackPages.Count - 1);
  // eventually disable the back button
  BtnBack.Enabled := not (BackPages.Count = 0);
end;

procedure TfrWizard.MoveTo(TabSheet: TTabSheet);
begin
  // add the last page to the list
  BackPages.Add (PageControl1.ActivePage);
  BtnBack.Enabled := True;
  // change page
  PageControl1.ActivePage := TabSheet;
end;

...

procedure TfrWizard.btnNext1Click(Sender: TObject);
begin
  MoveTo (TabSheet2)
end;

procedure TfrWizard.FormDestroy(Sender: TObject);
begin
  BackPages.Free;
end;

end.

[LordLarry]

En wat als je gaat debuggen? Wat kan je dan concluderen?

[Oscar Mopperkont]

LordLarry schreef op 22 maart 2004 @ 21:37:
En wat als je gaat debuggen? Wat kan je dan concluderen?

En dat heb ik dan altijd ik zie het probleem al.... de button was niet gelinkt. Ik weet niet waar ik met mijn hoofd zat

[whoami]

Je moet er ook niet naar staren, je moet debuggen.

Zet een breakpoint in het betreffende code fragment, en loop er eens stap voor stap door, kijk wat er gebeurt, etc....

Het is niet de bedoeling van P&W dat wij hier jouw code debuggen.