Olha o Código completo aí.
unit Unit1;
interface
uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, ComCtrls;
type
TForm1 = class(TForm)
PageControl1: TPageControl;
TabSheet1: TTabSheet;
TabSheet2: TTabSheet;
TabSheet3: TTabSheet;
TabSheet4: TTabSheet;
TabSheet5: TTabSheet;
procedure PageControl1Change(Sender: TObject);
procedure PageControl1Changing(Sender: TObject;
var AllowChange: Boolean);
private
{ Private declarations }
public
{ Public declarations }
end;
var
Form1: TForm1;
NumIndex : Integer;
implementation
{$R *.dfm}
procedure TForm1.PageControl1Change(Sender: TObject);
begin
if PageControl1.ActivePageIndex < NumIndex then
begin
Showmessage('Vc não pode voltar páginas !!!');
PageControl1.ActivePageIndex := NumIndex;
end;
end;
procedure TForm1.PageControl1Changing(Sender: TObject;
var AllowChange: Boolean);
begin
Numindex := PageControl1.ActivePageIndex;
end;
end.
---
avast! Antivirus: Outbound message clean.
Virus Database (VPS): 0535-3, 02/09/2005
Tested on: 2/9/2005 11:56:24
avast! - copyright (c) 1988-2005 ALWIL Software.
http://www.avast.com
[As partes desta mensagem que não continham texto foram removidas]
--
<<<<< FAVOR REMOVER ESTA PARTE AO RESPONDER ESTA MENSAGEM >>>>>
Para ver as mensagens antigas, acesse:
http://br.groups.yahoo.com/group/delphi-br/messages
Para falar com o moderador, envie um e-mail para:
[EMAIL PROTECTED] ou [EMAIL PROTECTED]
Links do Yahoo! Grupos
<*> Para visitar o site do seu grupo na web, acesse:
http://br.groups.yahoo.com/group/delphi-br/
<*> Para sair deste grupo, envie um e-mail para:
[EMAIL PROTECTED]
<*> O uso que você faz do Yahoo! Grupos está sujeito aos:
http://br.yahoo.com/info/utos.html
