Dúvida Delphi XE8
27/06/2018
0
Senac Periodicals
Posts
27/06/2018
Winston Jesus
Abraço!
27/06/2018
Emerson Nascimento
procedure TForm1.PageControl1Change(Sender: TObject); begin Self.Caption := TPageControl(Sender).ActivePage.Caption; Self.Refresh; end;
09/07/2018
Senac Periodicals
Eu tenho um único Form e dentro dele eu tenho 2 Grids:
- Uma Chamada 'Eventos Iniciais' e a outra chamada 'Eventos de Tabela'
o que esta acontecendo é o seguinte:
Quando eu clico para me mostrar apenas a grid dos eventos iniciais, o Caption do form aparece como 'Eventos Iniciais', mas quando eu clico para mostrar a grid de eventos de tabela, o Caption do Form continua mostrando 'Eventos Iniciais', mas eu estou precisando que no eventos de tabela apareça no Caption do Form 'Eventos de Tabela'
Segue o código que estou usando:
procedure TfrmEventosIniciaiseSocial.FormShow(Sender: TObject);
begin
inherited;
if Self.CategoriaEvento = ceIniciais then
begin
Self.Caption := 'Eventos Iniciais';
LimparBaseReceita.Visible := True;
end
else if Self.CategoriaEvento = ceTabelas then
begin
Self.Caption := 'Eventos de Tabela';
LimparBaseReceita.Visible := False;
No modo Debug ele altera corretamente, porém lá no Formulário continua aparecendo apenas 'Eventos Iniciais'
Já tentei trocar o Self pelo name do Form também, mas mesmo assim continua a mesma coisa
Clique aqui para fazer login e interagir na Comunidade :)