RES: [delphi-br] Mudança no PageControl

Fri, 02 Sep 2005 08:02:29 -0700 

Valeu André, eu havia feito algo parecido, mas queria limpar o código usando
apenas propriedades do PageControl, mas olhando o código da VCL cheguei a
conclusão de que não vai dar mesmo...

De qualquer forma, Obrigado.
  -----Mensagem original-----
  De: delphi-br@yahoogrupos.com.br [mailto:[EMAIL PROTECTED]
nome de Andre - Yahoo
  Enviada em: sexta-feira, 2 de setembro de 2005 11:56
  Para: delphi-br@yahoogrupos.com.br
  Assunto: Re: [delphi-br] Mudança no PageControl


  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]



        Yahoo! Grupos, um serviço oferecido por:
              PUBLICIDADE




----------------------------------------------------------------------------
--
  Links do Yahoo! Grupos

    a.. Para visitar o site do seu grupo na web, acesse:
    http://br.groups.yahoo.com/group/delphi-br/

    b.. Para sair deste grupo, envie um e-mail para:
    [EMAIL PROTECTED]

    c.. O uso que você faz do Yahoo! Grupos está sujeito aos Termos do
Serviço do Yahoo!.



[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

Responder a