Fórum Data Module sem break point #604613
15/08/2019
0
Fernando Sousa
Curtir tópico
+ 0Posts
22/08/2019
Fernando Ito
É só na unit do DataModule que está acontecendo isso, ou em todas units?
Os pontinhos azuis só vão aparecer se o sistema fizer uso de alguma função que tenha nesta unit, tanto quanto os eventos, verifica se está sendo criado a unit nas opções do projeto.
Verifica em Projects > View Source
begin
Application.Initialize;
Application.CreateForm(TForm1, Form1);
Application.CreateForm(TDataModule1, DataModule1); // Aqui o seu DM está sendo criado automaticamente
Application.Run;
end.
Se já estiver assim, faça um teste.
Declare Dialogs em uses do DM e no evento OnCreate coloque um ShowMessage conforme abaixo:
procedure TDataModule1.DataModuleCreate(Sender: TObject);
begin
ShowMessage('Teste'); // Aqui tem que aparecer o pontinho azul
end;
Um abraço,
ITO
Gostei + 0
23/08/2019
Fernando Sousa
É só na unit do DataModule que está acontecendo isso, ou em todas units?
Os pontinhos azuis só vão aparecer se o sistema fizer uso de alguma função que tenha nesta unit, tanto quanto os eventos, verifica se está sendo criado a unit nas opções do projeto.
Verifica em Projects > View Source
begin
Application.Initialize;
Application.CreateForm(TForm1, Form1);
Application.CreateForm(TDataModule1, DataModule1); // Aqui o seu DM está sendo criado automaticamente
Application.Run;
end.
Se já estiver assim, faça um teste.
Declare Dialogs em uses do DM e no evento OnCreate coloque um ShowMessage conforme abaixo:
procedure TDataModule1.DataModuleCreate(Sender: TObject);
begin
ShowMessage('Teste'); // Aqui tem que aparecer o pontinho azul
end;
Um abraço,
ITO
Olá ITO, fiz da forma que me orientou, e o pontinho azul não apareceu ainda.
Porém usando o showmessage encontrei o motivo da demora em abrir meu DM.
Forte Abraço.
Gostei + 0
29/03/2021
Fernando Sousa
Gostei + 0
Clique aqui para fazer login e interagir na Comunidade :)