Jump to content

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


Recommended Posts

Posted (edited)

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
Posted

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.

Posted (edited)

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
Posted (edited)

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! 😄

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.

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.