TPageControl

• 0Niko još nije pohvalio poruku.
  Registruj se da bi pohvalio/la poruku!

Kako uraditi kontrolu stranica.Početnik sam u Lazarus-u,a znam nešto maloDelphi.Kontrola stranica u Delphi:

Kod:
procedure TForm2.Racunaj1Click(Sender: TObject);
begin
...........................
Unit1.ActivePageIndex:=1;
end;
procedure TForm2.Nazad1Click(Sender: TObject);
begin

Unit1.ActivePageIndex:=0;

end;
procedure TForm2.Izlaz1Click(Sender: TObject);
begin
if Unit1.ActivePageIndex=1 then begin
Unit1.ActivePageIndex:=0;
end;
Close;
Form1.Close;
end;
end.

Kako ovo napisati za Lazarus.
Pozdrav svima i hvala

• 0Niko još nije pohvalio poruku.
  Registruj se da bi pohvalio/la poruku!

PageControl1.PageIndex:=1;
umesto 1 sta ti treba naravno

• 0Niko još nije pohvalio poruku.
  Registruj se da bi pohvalio/la poruku!

Zahvaljujem se na pomoći.Jednostavno samo se treba setiti.