Procedimento ou função para mostrar caption do form em uma label
13/06/2024
0
Prezados,
Como criar uma função ou procedimento para mostrar na tela principal o nome de cada formulário no caption de uma label, com os formulários embedados em um panel? Fiz o procedimento abaixo, mas o nome do primeiro formulário sempre fica "Agarrado" no caption da label e não limpa quando abro outro.
procedure TPagePrincipal.MostraCaption;
begin
lblFormCaption.Caption := ''; // Limpa o conteúdo do caption
// Itera sobre os componentes no painel para encontrar o formulário ativo
for var I := 0 to pnlEmb.ControlCount - 1 do
begin
if pnlEmb.Controls[I] is TForm then
begin
lblFormCaption.Caption := TForm(pnlEmb.Controls[I]).Caption;
Break;
end;
end;
end; Alguém pode me ajudar??????????????????
Como criar uma função ou procedimento para mostrar na tela principal o nome de cada formulário no caption de uma label, com os formulários embedados em um panel? Fiz o procedimento abaixo, mas o nome do primeiro formulário sempre fica "Agarrado" no caption da label e não limpa quando abro outro.
procedure TPagePrincipal.MostraCaption;
begin
lblFormCaption.Caption := ''; // Limpa o conteúdo do caption
// Itera sobre os componentes no painel para encontrar o formulário ativo
for var I := 0 to pnlEmb.ControlCount - 1 do
begin
if pnlEmb.Controls[I] is TForm then
begin
lblFormCaption.Caption := TForm(pnlEmb.Controls[I]).Caption;
Break;
end;
end;
end; Alguém pode me ajudar??????????????????
![Mauricio Bomfim Mauricio Bomfim](https://www.devmedia.com.br/imagens/fotoscolunistas/150517_20211015060923.jpg)
Mauricio Bomfim
Curtir tópico
+ 0
Responder
Posts
19/06/2024
Emerson Nascimento
não seria mais fácil o próprio form, quando ativado, alterar o label?
Responder
19/06/2024
Mauricio Bomfim
Sim, acabei fazendo isso, porém, tive que repetir o código , abaixo de cada chamada de formulário.
lblFormCaption.Caption := ' ';
lblFormCaption.Caption := 'Nome do Formulário.
Fiz isso para todos os formulários, por isso pensei no peocedimento para não repetir o código. Alguma idéia?????
lblFormCaption.Caption := ' ';
lblFormCaption.Caption := 'Nome do Formulário.
Fiz isso para todos os formulários, por isso pensei no peocedimento para não repetir o código. Alguma idéia?????
Responder
Clique aqui para fazer login e interagir na Comunidade :)