Data Module sem break point
15/08/2019
0
Boa tarde, uso o delphi 7 e o no DATA MODULE não aparece o pontinhos azuis para utilizar o break point. O que poderia ser?
Fernando Sousa
Curtir tópico
+ 0
Responder
Posts
22/08/2019
Fernando Ito
Oi 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
É 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
Responder
23/08/2019
Fernando Sousa
Oi 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
É 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.
Responder
Clique aqui para fazer login e interagir na Comunidade :)