Jump to content
Hercles

As Tlabel só aparece no formulário quando eu clico dentro da Tgrupobox.

Recommended Posts

Hercles

Caros,

criei este código abaixo e quando executo um item do menu, o primeiro aparece com as Tlabel normal quando clico em outro, do menu, as Tlabel só aparece no formulário quando eu clico dentro da Tgrupobox. O que acontece?

procedure Tfrmmeusfuncionarios.mnuacharfuncionarioClick(Sender: TObject);
begin
 caption:='Achar Funcionário';
 Groupbox1.visible:= true;
 txtnome.enabled:= false;
 txtidade.Enabled:=false;
 txtsalario.Enabled:=false;
 button1.caption:='Buscar';
 Groupbox1.caption:='Achar Funcionário';
end;
procedure Tfrmmeusfuncionarios.mnualteraridadefuncionarioClick(Sender: TObject);
begin
 caption:='Alterar Idade - Funcionário';
 Groupbox1.visible:= true;
 txtnome.enabled:= false;
 txtidade.Enabled:= true;
 txtsalario.Enabled:=false;
 button1.caption:='Alterar';
 Groupbox1.caption:= 'Alterar Idade';
end;
procedure Tfrmmeusfuncionarios.mnualterarnomefuncionarioClick(Sender: TObject);
begin
 caption:='Alterar Nome - Funcionário';
 Groupbox1.visible:= true;
 txtnome.enabled:= true;
 txtidade.Enabled:=false;
 txtsalario.Enabled:=false;
 button1.caption:='Alterar';
 Groupbox1.caption:='Alterar Nome';
end;

procedure Tfrmmeusfuncionarios.mnualterarsalariofuncionarioClick(Sender: TObject
 );
begin
  caption:='Alterar Salário -  Funcionário';
  Groupbox1.visible:= true;
  txtnome.enabled:= false;
  txtidade.Enabled:=false;
  txtsalario.Enabled:=true;
  button1.caption:='Alterar';
  Groupbox1.caption:='Alterar Salário';
end;	

Edited by Hercles

Share this post


Link to post
Share on other sites
nunopicado

Não percebi. O que te acontece ao certo?


"A humanidade está a perder os seus génios... Aristóteles morreu, Newton já lá está, Einstein finou-se, e eu hoje não me estou a sentir bem!"

> Não esclareço dúvidas por PM: Indica a tua dúvida no quadro correcto do forum.

Share this post


Link to post
Share on other sites
Hercles

o problema esta aqui:

Groupbox1.caption:='Alterar Nome';

mas resolvi trocando esta linha por uma Tlabel que ficou mais bonito...

lblmsg.caption:='Alterar Nome';

Edited by thoga31
Formatação do post

Share this post


Link to post
Share on other sites
Hercles

resolvi troquei

Groupbox1.caption:='Alterar Nome';

por uma Tlabel

Edited by thoga31
Formatação do post

Share this post


Link to post
Share on other sites
I-NOZex

se qeres agrupar, exprimenta tambem usar antes um TPanel... (tens é de mudar o alinhamento do texto, por defeito é meio-centro, tens de meter esquerda-topo)


B2R » Beat2Revolution v3.0b | Regista e divulga-nos

beat2revolution.net

Share this post


Link to post
Share on other sites
thoga31

show.

Esclarecedor para quem te está a tentar ajudar. Show what?


Knowledge is free!

Share this post


Link to post
Share on other sites
nunopicado

Esclarecedor para quem te está a tentar ajudar. Show what?

"Show... de bola"

:) Significa que o rapaz já entendeu!

Acho...

É no que dá não ouvires Ruth Marlene! :D

Edited by nunopicado

"A humanidade está a perder os seus génios... Aristóteles morreu, Newton já lá está, Einstein finou-se, e eu hoje não me estou a sentir bem!"

> Não esclareço dúvidas por PM: Indica a tua dúvida no quadro correcto do forum.

Share this post


Link to post
Share on other sites

Create an account or sign in to comment

You need to be a member in order to leave a comment

Create an account

Sign up for a new account in our community. It's easy!

Register a new account

Sign in

Already have an account? Sign in here.

Sign In Now

×
×
  • Create New...

Important Information

By using this site you accept our Terms of Use and Privacy Policy. We have placed cookies on your device to help make this website better. You can adjust your cookie settings, otherwise we'll assume you're okay to continue.