Ocultando as abas de um TPageControl

caro amigos estou postando mais uma dica simples.

Desta forma que estou executando a rotina Abaixo, está sendo feito direto no Formulário principal, desta forma e simples só que não conseguimos reaproveita em outros formulários.

Vamos ocultar as abas do TPagecontrol.

Neste caso vamos crie uma aplicação nova VCL, nesta aplicação vamos adicione ao formulário principal um PageControl, procure a sua aba de Componente TPageControl, depois de adiciona o PagControl ao Formulário principal, de um click com o botão direito do mouse e adicione as abas necessária.

Exemplo :


Cadastro | Pesquisa


Depois de adicionar as Abas, vamos para código, de um click duplo do formulário principal ou vai no evento OnCreate do formulário principal e adicione o código abaixo.

procedure TForm1.formCreate(Sender: TObject);
var
   i : integer;
begin
     for i := 0 to PageControl1.PageCount -1 do
     pageControl1.Pages[i].TabVisible := false;
     // deixa a primeira página ativa
    Pagecontrol1.ActivePage := PageControl1.Pages[0];
end;

Agora que Escrevemos este código, vamos executar o aplicativo para testando e verificamos se deu tudo certo.

Lógico que este código só irá oculta as abas não irá fazer mais nada, se quisermos trabalhar com a abas precisamos, realizamos codificar um pouquinho mais, neste caso, estarei dando continuidade em outro post, como podemos trabalhar com as abas, oculta.

Galera, espero que este post ajude

usando o evento OnKeyPress

Quando usamos o evento onKeyPress, este evento ocorre quando você pressiona um [ENTER], ou quando estamos pressionando qualquer teclado do nosso teclado, agora vamos pressionar qualquer tecla para visualizamos, conforme imagem abaixo.


Exemplo :

Então vamos para o código.

Para conseguimos este resultado, clica no button e vai no "Object Inspector" do Delphi, e encontre a aba eventos OnKeyPress, agora vamos colocar este código abaixo.


CÓDIGO:

Procedure TForm1.Button1KeyPress(Sender : TObject; var key: Char);
begin
   MessageDLG('A tecla [' + key + '] foi pressionada', mtInformation, [mbok], 0 );
end;

exemplo foi bem simples apenas para intendimento de como podemos recuperar as teclado pressionando durante a digitação e um caso.

Espero que Goste, até o próximo post!!!

usando o evento onChange

o Evento onChange Ocorre quando o objecto ou se conteúdo muda de valor.

Exemplo :

procedure TForm1.Edit1Change(Sender : TObject);
begin
Edit2.text := 'O Valor contigo no object edit1.text foi alterado';
end;

usando o evento onClick

o evento onclick é disparado no instante em que você clica com o botão esquerdo do mouse sobre o objeto.

Exemplo :

procedure TForm1.ButtonClick(sender : object) ;
begin
cliente.showModal;
end;

Dayofweek

objetivo
Retornar um valor inteiro para o dia da semana que representa a data passada como parâmetro.

sintaxe
dayofWeek(Date: TDatetime): Integer;

exemplo :
NumDia := DayofWeek(strTodate(edtData.text));


A função retorná valores entre 1 e 7 . indica o primeiro dia da semana, que é domingo, e o sétimo e último dia, que é sábado.

Date

Objetivo
Retornar à data Atualmente definida pelo sistema operacional.

sintaxe :
Data : TDateTime;

Exemplo :
loData : Date;

sobre o exemplo :
O Retorno será atribuído à variável loData, obrigatoriamente (nesse caso) deve ter sido declarada com TDateTime.

DateToStr

Dicas

Objetivo
Converter o valor do argumento TDateTime em um string.

Sintaxe
DateToStr(Data : TDateTime): String;

Data : Isto representa uma data, a qual deverá ser convertida para String.

exemplo de usar :
loData : DateToStr(Date);

Sobre o Exemplo:
neste exemplo, o retorno será atribuído à variável loData, que obrigatoriamente (nesse caso) deve ter sido declarada com String;

StrtoDate

Caro amigos,

Segue uma dica bem simples colegas.

objetivo
converter o valor do argumento String em um TDateTime.

Sintaxe
StrtoDate(const s: string): TDateTime;

a const S: Deverá ser convertida para TDateTime.

Exemplo :

dDate := StrToDate(sData)


msn: rbbarreto@hotmail.com