Wizard i Delphi

Hvordan laver men en Wizard som når den er færdig alt det man har skrevet i de forskelige forms/ting bliver gemt systematisk i en ini fil?

Uha, det er lidt af en ordre, men vi kan da gøre et forsøg:

Hvis du opretter en ny form og placerer f.eks. en TPageControl på den, samt tre knapper (Forrige, Næste og Afbryd).

Opret et antal faner på din pagecontrol svarende til det antal sider du skal bruge i din wizard. Fordel de nødvendige komponenter på de respektive sider.

Når du så trykker "Afslut" gemmer du værdierne af alle kontrollerne ned i ini filen.

Eks (i delvis pseudo kode):

// Klargør kontroller
procedure TForm1.FormCreate(Sender : TObject);
var
  idx : Integer;
begin
  PageControl1.ActivePageIndex := 0;
  btnPrev.Enabled := False;

  for idx := 0 to PageControl1.PageCount - 1 do
    PageControl.Pages[idx].TabVisible := False;

  // Initialiser alle kontroller.
end;

// "Forrige" knap
procedure TForm1.btnPrev(Sender : TObject);
begin
  if PageControl1.ActivePageIndex > 0 then
    PageControl1.ActivePageIndex := PageControl1.ActivePageIndex - 1;

  if PageControl1.ActivePageIndex = 0 then
    btnPrev.Enabled := False;

  if PageControl1.ActivePageIndex < (PageControl1.PageCount - 1) then
    btnNext.Caption := 'Næste'
  else
    btnNext.Caption := 'Færdig';
end;

// "Næste" knap
procedure TForm1.btnNext(Sender : TObject);
begin
  if PageControl1.ActivePageIndex < PageControl1.PageCount - 1 then
  begin
    PageControl1.ActivePageIndex := PageControl1.ActivePageIndex + 1;

    if PageControl1.ActivePageIndex > 0 then
      btnPrev.Enabled := True;

    if PageControl1.ActivePageIndex = (PageControl1.PageCount - 1) then
      btnNext.Caption := 'Færdig'
    else
      btnNext.Caption := 'Næste';
  end
  else
    SaveSettings;
end;

procedure TForm1.SaveSettings;
begin
  // Her gemmer du så værdien af alle relevante kontroller ned i ini filen.
  with TIniFile.Create('C:\\wizard.ini') do
  try
    WriteString('SYSTEM', 'Navn', EditNavn.Text);
    WriteInteger('SYSTEM', 'Alder', SpinAlder.Value);
    ....
  finally
    Free;
  end;
end;

Det er da én måde at gøre det på. Der er ganske givet flere, og denne metode skal da også finpudses lidt, men det er grundstenen i én metode til at lave en wizard.

--
Thomas Due
Software developer
udvikleren.dk - ASP redaktør
tdue@mail.dk

Hvordan laver men en Wizard som når den er færdig alt det man har skrevet i de forskelige forms/ting bliver gemt systematisk i en ini fil?

Uha, det er lidt af en ordre, men vi kan da gøre et forsøg:

Hvis du opretter en ny form og placerer f.eks. en TPageControl på den, samt tre knapper (Forrige, Næste og Afbryd).

Opret et antal faner på din pagecontrol svarende til det antal sider du skal bruge i din wizard. Fordel de nødvendige komponenter på de respektive sider.

Når du så trykker "Afslut" gemmer du værdierne af alle kontrollerne ned i ini filen.

Eks (i delvis pseudo kode):

Kode 

// Klargør kontroller
procedure TForm1.FormCreate(Sender : TObject);
var
  idx : Integer;
begin
  PageControl1.ActivePageIndex := 0;
  btnPrev.Enabled := False;

  for idx := 0 to PageControl1.PageCount - 1 do
    PageControl.Pages[idx].TabVisible := False;

  // Initialiser alle kontroller.
end;

// "Forrige" knap
procedure TForm1.btnPrev(Sender : TObject);
begin
  if PageControl1.ActivePageIndex > 0 then
    PageControl1.ActivePageIndex := PageControl1.ActivePageIndex - 1;

  if PageControl1.ActivePageIndex = 0 then
    btnPrev.Enabled := False;

  if PageControl1.ActivePageIndex < (PageControl1.PageCount - 1) then
    btnNext.Caption := 'Næste'
  else
    btnNext.Caption := 'Færdig';
end;

// "Næste" knap
procedure TForm1.btnNext(Sender : TObject);
begin
  if PageControl1.ActivePageIndex < PageControl1.PageCount - 1 then
  begin
    PageControl1.ActivePageIndex := PageControl1.ActivePageIndex + 1;

    if PageControl1.ActivePageIndex > 0 then
      btnPrev.Enabled := True;

    if PageControl1.ActivePageIndex = (PageControl1.PageCount - 1) then
      btnNext.Caption := 'Færdig'
    else
      btnNext.Caption := 'Næste';
  end
  else
    SaveSettings;
end;

procedure TForm1.SaveSettings;
begin
  // Her gemmer du så værdien af alle relevante kontroller ned i ini filen.
  with TIniFile.Create('C:\\wizard.ini') do
  try
    WriteString('SYSTEM', 'Navn', EditNavn.Text);
    WriteInteger('SYSTEM', 'Alder', SpinAlder.Value);
    ....
  finally
    Free;
  end;
end;

Det er da én måde at gøre det på. Der er ganske givet flere, og denne metode skal da også finpudses lidt, men det er grundstenen i én metode til at lave en wizard.

--
Thomas Due
Software developer
udvikleren.dk - ASP redaktør
tdue@mail.dk

Hej
Har lavet en form med en page controler og 3 knapper, Afbryd, Afslut og forsæt
men den laver disse fejl

[Error] Unit1.pas(32): Undeclared identifier: 'FormCreate'
[Error] Unit1.pas(36): Undeclared identifier: 'PageControl1'
[Error] Unit1.pas(36): Missing operator or semicolon
[Error] Unit1.pas(37): Undeclared identifier: 'btnPrev'
[Error] Unit1.pas(39): 'DO' expected but identifier 'PageCount' found
[Error] Unit1.pas(46): Undeclared identifier: 'btnPrev'
[Error] Unit1.pas(48): Undeclared identifier: 'PageControl1'
[Error] Unit1.pas(48): 'THEN' expected but identifier 'ActivePageIndex' found
[Error] Unit1.pas(51): 'THEN' expected but identifier 'ActivePageIndex' found
[Error] Unit1.pas(54): 'THEN' expected but identifier 'ActivePageIndex' found
[Error] Unit1.pas(63): 'THEN' expected but identifier 'ActivePageIndex' found
[Error] Unit1.pas(65): Missing operator or semicolon
[Error] Unit1.pas(65): Missing operator or semicolon
[Error] Unit1.pas(65): Statement expected, but expression of type 'Integer' found
[Error] Unit1.pas(67): 'THEN' expected but identifier 'ActivePageIndex' found
[Error] Unit1.pas(70): 'THEN' expected but identifier 'ActivePageIndex' found
[Error] Unit1.pas(82): Undeclared identifier: 'TIniFile'
[Error] Unit1.pas(84): Undeclared identifier: 'WriteString'
[Error] Unit1.pas(84): Undeclared identifier: 'EditNavn'
[Error] Unit1.pas(84): '(' expected but ')' found
[Error] Unit1.pas(85): Missing operator or semicolon
[Error] Unit1.pas(85): Undeclared identifier: 'SpinAlder'
[Error] Unit1.pas(85): EXCEPT or FINALLY expected
[Error] Unit1.pas(93): Statement expected but end of file found
[Error] Unit1.pas(16): Unsatisfied forward or external declaration: 'TForm1.TabSheet1ContextPopup'
[Fatal Error] Project1.dpr(5): Could not compile used unit 'Unit1.pas'

har bare efter jeg havde lavet de knapper og page control sat all koden i bunden

har bare efter jeg havde lavet de knapper og page control sat all koden i bunden

Med fare for at lyde hård, så er du altså også nødt til at tænke lidt selv. Jeg skriver at koden er delvis i pseudo, hvilket betyder at den ikke nødvendigvis virker uden videre.

Jeg ved af gode grunde ikke hvad dine kontroller hedder, og derfor skal du sørge for at rette koden til så det passer. Dernæst skal du jo altså også sørge for at tildele hændelserne korrekt.

Hvad er dit niveau inden for programmering generelt, og Delphi specifikt???

--
Thomas Due
Software developer
udvikleren.dk - ASP redaktør
tdue@mail.dk

har bare efter jeg havde lavet de knapper og page control sat all koden i bunden

Med fare for at lyde hård, så er du altså også nødt til at tænke lidt selv. Jeg skriver at koden er delvis i pseudo, hvilket betyder at den ikke nødvendigvis virker uden videre.

Jeg ved af gode grunde ikke hvad dine kontroller hedder, og derfor skal du sørge for at rette koden til så det passer. Dernæst skal du jo altså også sørge for at tildele hændelserne korrekt.

Hvad er dit niveau inden for programmering generelt, og Delphi specifikt???

--
Thomas Due
Software developer
udvikleren.dk - ASP redaktør
tdue@mail.dk

Min fejl, fattede ikke det psuedu du skrev i kollonernde
Men har skrevet en tekst editor og lidt andet
Men har ikke programmert mere end en uge!

Men har ikke programmert mere end en uge!

Så vil jeg jo nok anbefale dig at starte på lidt lavere niveau. Prøv evt. at finde en bog eller to om programmering. Du burde kunne låne nogle på biblioteket.

Tag ikke fejl, jeg synes det er alletider at du giver dig igang med programmering. Men du skal passe på at du ikke sigter for højt til at starte med.

Bare et godt råd.
--
Thomas Due
Software developer
udvikleren.dk - ASP redaktør
tdue@mail.dk