Fórum pagecontrol1 #442615

Qual código você está utilizando?

Geralmente, basta mudar o índice de página selecionada no PageControl. Por exemplo:

Se não for "SelectedTabIndex", veja qual é a propriedade aí, pois faz um tempo que não uso e a memória está fraca.

Tem duas forma eu faço um seguinte quando clicar no botão incluir e se tiver suponhando na tabsheet40 e quero que ele va para tabsheet1 ao clicar no incluir, uso o seguitne codigo:
pagecontrol1.activepage := tabsheet1;
ou
pagecontrol1.activepageindex := 0;


espero te ajudado.

"Deus Abençoes"

Boa, Wilton. Eu tô aqui com C# na cabeça, só me meio SelectedTabIndex na cabeça, nem sei de onde tirei.

Ainda não esta funcionando segue o fonte para que possam analizar.
unit ucliente;

interface

uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, ComCtrls, DB, StdCtrls, Mask, DBCtrls, Buttons, Grids, DBGrids;

type
Tfcadcli = class(TForm)
dsgrid: TDataSource;
dscliente: TDataSource;
PageControl1: TPageControl;
TabSheet1: TTabSheet;
DBGrid1: TDBGrid;
TabSheet2: TTabSheet;
LabelCodigo: TLabel;
DBEditcodigo: TDBEdit;
Labelnome: TLabel;
DBEditnome: TDBEdit;
Labelendereco: TLabel;
DBEditendereco: TDBEdit;
Labelbairro: TLabel;
DBEditbairro: TDBEdit;
Labelcep: TLabel;
DBEditcep: TDBEdit;
Labelcidade: TLabel;
DBEditcidade: TDBEdit;
Labeldata: TLabel;
DBEditdata: TDBEdit;
GroupBoxbanco: TGroupBox;
BtnSalvar: TBitBtn;
BtnCancelar: TBitBtn;
GroupBoxBotoes: TGroupBox;
BtnIncluir: TBitBtn;
BtnExcluir: TBitBtn;
BtnFechar: TBitBtn;
BtnAlterar: TBitBtn;
GroupBoxBusca: TGroupBox;
Labelnomebuscar: TLabel;
edNome: TEdit;
BtnBuscar: TBitBtn;
procedure BtnIncluirClick(Sender: TObject);
procedure BtnFecharClick(Sender: TObject);
procedure BtnSalvarClick(Sender: TObject);
procedure BtnBuscarClick(Sender: TObject);
procedure BtnCancelarClick(Sender: TObject);
procedure BtnAlterarClick(Sender: TObject);
procedure BtnExcluirClick(Sender: TObject);
private
{ Private declarations }

public
{ Public declarations }
end;

var
fcadcli: Tfcadcli;

implementation

{$R *.dfm}

uses uDMCliente, uDMProduto;

procedure Tfcadcli.BtnIncluirClick(Sender: TObject);
begin
DMCli.cdscliente.Close;//fecha
DMPro.cdsprod.Params.ParamByName('CODIGO').AsInteger :=0;
DMCli.cdscliente.Open;//abre
DMCli.cdscliente.Append;//inclui
pagecontrol1.ActivePageIndex := 1;
end;

procedure Tfcadcli.BtnFecharClick(Sender: TObject);
begin
Close;
end;

procedure Tfcadcli.BtnSalvarClick(Sender: TObject);
begin
DMCli.cdscliente.Post;//Salva só em memoria
Dmcli.cdscliente.ApplyUpdates(0);//salva no banco de dados
pageControl1.ActivePageIndex := 0;
end;

procedure Tfcadcli.BtnBuscarClick(Sender: TObject);
begin
DMCli.cdsGrid.Close;
DMCli.cdsGrid.CommandText := 'Select CODIGO, NOME from CLIENTES where 1=1';

//O #39 EQUIVALE A ASPAS SIMPLES
if edNome.Text <> '' then
DMCli.cdsGrid.CommandText := DMCli.cdsGrid.CommandText +' and NOME LIKE('+#39+'%'+edNome.Text+'%'+#39+')';

DMCli.cdsGrid.Open;
end;

procedure Tfcadcli.BtnCancelarClick(Sender: TObject);
begin
DMCli.cdscliente.Cancel;//cancela alteração
pageControl1.ActivePageIndex := 0;
end;

procedure Tfcadcli.BtnAlterarClick(Sender: TObject);
begin
if DMCli.cdsGrid.Active = FALSE then
EXIT;

if DMCli.cdsGrid.RecordCount <= 0 then
EXIT;

DMCli.cdsCliente.Close;
DMCli.cdsCliente.Params.ParamByName('CODIGO').AsInteger := DMCli.cdsGrid.FieldByName('CODIGO').AsInteger;
DMCli.cdsCliente.Open;
DMCli.cdsCliente.Edit;
PageControl1.ActivePageIndex := 1;
end;

procedure Tfcadcli.BtnExcluirClick(Sender: TObject);
begin
if DMCli.cdsGrid.Active = FALSE then
EXIT;

if DMCli.cdsGrid.RecordCount <= 0 then
EXIT;

if (Application.MessageBox('Confirma a Exclusão do Cadastro?', 'ATENÇÃO', MB_YESNO+MB_ICONQUESTION)=IDYES) then
Begin
DMCli.cdsCliente.Close;
DMCli.cdsCliente.Params.ParamByName('CODIGO').AsInteger := DMCli.cdsGrid.FieldByName('CODIGO').AsInteger;
DMCli.cdsCliente.Open;
DMCli.cdsCliente.Delete;
DMCli.cdsCliente.ApplyUpdates(0);
End;
end;
end.

Posso tentar ajudar você.
Me passa acesso via teamviwer que vemos junto

suporte@gruponewlife.com.br

Faz o seguinte:

Valeu galera, consegui agora não estou conseguindo fazer a inclusão de um registro.
quando eu clico no botão incluir abre a tela de inclusão mas não consigo digitar nada, oque eu faço?

Como você fez para abrir a tela de inclusão???
E como está o código da unit??

Baltazar.
o codigo esta logo acima.

Tenta trocar



por

Valeu baltazar.
Voce poseria me enviar um fonte de Tela de login.
como estou iniciando em delphi sei apenas o basico.
estou começando por cadastro, pode me ajudar.

Resolveu esse problema já?
O login posso te enviar sim, mas esse problema conseguiu solucionar?

sim obrigado