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

Fernando Sousa

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


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

29/03/2021

Fernando Sousa

RESOLVIDO.
Responder

Assista grátis a nossa aula inaugural

Assitir aula

Saiba por que programar é uma questão de
sobrevivência e como aprender sem riscos

Assistir agora

Utilizamos cookies para fornecer uma melhor experiência para nossos usuários, consulte nossa política de privacidade.

Aceitar