Data Module sem break point

Delphi

15/08/2019

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

Fernando Sousa

Curtidas 0

Respostas

Fernando Ito

Fernando Ito

15/08/2019

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
GOSTEI 0
Fernando Sousa

Fernando Sousa

15/08/2019

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


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
Fernando Sousa

Fernando Sousa

15/08/2019

RESOLVIDO.
GOSTEI 0
POSTAR