I have problem with pop-up screen. The code can be compile and run but when the pop-up screen appear, I can't close the pop-up screen. I have to click a lot of times on the OK button.
Here is the code:

i:Integer;
begin
for i := 0 to 4 do
begin
  sleep(4000); //stops for 4000 milliseconds
  if i = 4 then
  showMessage('Please get up and relax your eyes');
  end;

May I know what is the problem with the code? Thank you.

I don't find any mistake in your code ....
It works fine compiled by Delphi 7, no problems at all ....

unit Unit1;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls;

type
  TForm1 = class(TForm)
    Button1: TButton;
    Button2: TButton;
    procedure Button1Click(Sender: TObject);
    procedure Button2Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form1: TForm1;

implementation

{$R *.dfm}

procedure TForm1.Button1Click(Sender: TObject);
var
  I:      Integer;
begin
  for I := 0 to 4 do
  begin
    Sleep(4000); //stops for 4000 milliseconds
    if (I = 4) then
      ShowMessage('Please get up and relax your eyes');
  end;
end;

procedure TForm1.Button2Click(Sender: TObject);
begin
  Sleep(20000); //stops for 20000 milliseconds
  ShowMessage('Please get up and relax your eyes');
end;

end.

I know that it works well but then when I want to close the pop-up screen, I have to click a lot of times on the OK button then the pop-up screen will disappear.

I know that it works well but then when I want to close the pop-up screen, I have to click a lot of times on the OK button then the pop-up screen will disappear.

raud10 sorry,
I think, you did not understand me ....
Code that you posted above could not be reason for showing more than 1 Message 'Please get up and relax your eyes', so above code is correct ....
May be you call above correct code more than once, but from another part of your program, that we could not see, because it is not posted above ....
So my opinion is: the reason of many popup Messages is outside above code. Onother part of your program calls many tinmes the above code, and causes showing of many Messages.

Ok. I will post u the entire code.

procedure TForm1.Timer1Timer(Sender: TObject);
var verbrauch,TEGenergy:real;
i:Integer;
begin
   for i := 0 to 4 do
   begin
   sleep (1000);
   if i = 4 then
   showMessage('Please get up and relax your eyes');
   end;
   Timer1.enabled := true;
if form2.visible=false then checkbox5.Checked :=false;

if (now-ankunftnode1)<0.0001 then pagecontrol1.Pages[0].Highlighted:=true
  else pagecontrol1.Pages[0].Highlighted:=false;
if (now-ankunftnode2)<0.0001 then pagecontrol1.Pages[1].Highlighted:=true
  else pagecontrol1.Pages[1].Highlighted:=false;
if (now-ankunftnode3)<0.0001 then pagecontrol1.Pages[2].Highlighted:=true
  else pagecontrol1.Pages[2].Highlighted:=false;
if (now-ankunftnode4)<0.0001 then pagecontrol1.Pages[3].Highlighted:=true
  else pagecontrol1.Pages[3].Highlighted:=false;

if now-ankunft>0.0001 then
  begin
  edit2.Text:='0';
  edit3.Text:='0';
  edit5.Text:='0';
  edit7.Text:='0';
  edit9.Text:='0';
  edit10.Text:='0';
  edit11.Text:='0';
  label1.Visible:=false;
  label2.Visible:=false;
  label3.Visible:=false;
  label4.Visible:=false;
  image2.Visible:=false;
  progbar1.Visible:=false;
  end;
procedure TForm1.Timer1Timer(Sender: TObject);
var
   verbrauch,TEGenergy:      real;
   i:                        Integer;
begin
  Timer1.enabled := False; { Avoids multiple popups of the Message }
  for i := 0 to 4 do
  begin
    sleep (1000);
    if i = 4 then
      showMessage('Please get up and relax your eyes');
  end;

  if form2.visible=false then
    checkbox5.Checked := false;

  if (now-ankunftnode1)<0.0001 then
    pagecontrol1.Pages[0].Highlighted := true
  else
    pagecontrol1.Pages[0].Highlighted := false;

  if (now-ankunftnode2)<0.0001 then
    pagecontrol1.Pages[1].Highlighted := true
  else
    pagecontrol1.Pages[1].Highlighted := false;

  if (now-ankunftnode3)<0.0001 then
    pagecontrol1.Pages[2].Highlighted := true
  else
    pagecontrol1.Pages[2].Highlighted := false;

  if (now-ankunftnode4)<0.0001 then
    pagecontrol1.Pages[3].Highlighted := true
  else
    pagecontrol1.Pages[3].Highlighted := false;

  if now-ankunft>0.0001 then
  begin
    edit2.Text:='0';
    edit3.Text:='0';
    edit5.Text:='0';
    edit7.Text:='0';
    edit9.Text:='0';
    edit10.Text:='0';
    edit11.Text:='0';
    label1.Visible := false;
    label2.Visible := false;
    label3.Visible := false;
    label4.Visible := false;
    image2.Visible := false;
    progbar1.Visible := false;
  end;
end;

The reason for popup-Messages is that Timer activates ( every 1000 ms probably ), and calls the procedure TForm1.Timer1Timer(); a count of times before delaying from 5000 ms to expire ....
So I did deactivate the Timer by:
Timer1.Enabled := False; { no active Timer = no multiple popups of the Message }

procedure TForm1.Timer1Timer(Sender: TObject);
var
   verbrauch,TEGenergy:      real;
   i:                        Integer;
begin
  Timer1.enabled := False; { Avoids multiple popups of the Message }
  for i := 0 to 4 do
  begin
    sleep (1000);
    if i = 4 then
      showMessage('Please get up and relax your eyes');
  end;

  if form2.visible=false then
    checkbox5.Checked := false;

  if (now-ankunftnode1)<0.0001 then
    pagecontrol1.Pages[0].Highlighted := true
  else
    pagecontrol1.Pages[0].Highlighted := false;

  if (now-ankunftnode2)<0.0001 then
    pagecontrol1.Pages[1].Highlighted := true
  else
    pagecontrol1.Pages[1].Highlighted := false;

  if (now-ankunftnode3)<0.0001 then
    pagecontrol1.Pages[2].Highlighted := true
  else
    pagecontrol1.Pages[2].Highlighted := false;

  if (now-ankunftnode4)<0.0001 then
    pagecontrol1.Pages[3].Highlighted := true
  else
    pagecontrol1.Pages[3].Highlighted := false;

  if now-ankunft>0.0001 then
  begin
    edit2.Text:='0';
    edit3.Text:='0';
    edit5.Text:='0';
    edit7.Text:='0';
    edit9.Text:='0';
    edit10.Text:='0';
    edit11.Text:='0';
    label1.Visible := false;
    label2.Visible := false;
    label3.Visible := false;
    label4.Visible := false;
    image2.Visible := false;
    progbar1.Visible := false;
  end;
end;

So for

Timer1.enabled := False; { Avoids multiple popups of the Message }

u have given me, the pop-up will eventually pop-up again after I press OK button right?

So for

Timer1.enabled := False; { Avoids multiple popups of the Message }

u have given me, the pop-up will eventually pop-up again after I press OK button right?

Not exactly ....
It is very complicated case .... because some properties of your project are not known for us who read your code ....
For example the Property Interval of the TTimer Component by default is 1000 ms, but you may have changed it ....
Let I think the Property Interval is 1000 ms, so your TTimer Component will activate its 'method Timer1Timer(Sender: TObject); automatically on every 1000 ms, but at first activation your code has to delay 5000 ms before to Shows first popup-Message, so before first popup-Message the method will be called 5 or 6 times ....
Your reaction to see the popup-Message needs some time, after that your reaction with mouse needs some time, so it gives the programm some time to show more than one popup-Messages ....
So after first activation of the method Timer1Timer(Sender: TObject); I did stop it by deactivation the TTimer Component:
Timer1.enabled := False; { Avoids multiple popups of the Message }, but this is only to cause some brain-activity about the reason of your problem, I have no Idea, why you need this TTimer Component .... May be my idea to deactivate TTimer Component is not good at all ???? You have a problem with the popup-Messages - may be you don't need popup-Messages, may be it is a better idea to use a TMemo Component instead of popups ????
Here is my suggestion code you may use if you decide:

procedure TForm1.Timer1Timer(Sender: TObject);
var
   verbrauch,TEGenergy:      real;
   I:                        Integer;
   N:                        Integer;
begin
  for I := 0 to 4 do
  begin
    N := (I+1)*128;
    ProgressBar1.Position := N;
    Memo1.Lines.Add(DateTimeToStr(Now)+'.... = .... '+IntToStr(N));
    Sleep (1000);
  end;

  if form2.visible=false then
    checkbox5.Checked := false;

  if (now-ankunftnode1)<0.0001 then
    pagecontrol1.Pages[0].Highlighted := true
  else
    pagecontrol1.Pages[0].Highlighted := false;

  if (now-ankunftnode2)<0.0001 then
    pagecontrol1.Pages[1].Highlighted := true
  else
    pagecontrol1.Pages[1].Highlighted := false;

  if (now-ankunftnode3)<0.0001 then
    pagecontrol1.Pages[2].Highlighted := true
  else
    pagecontrol1.Pages[2].Highlighted := false;

  if (now-ankunftnode4)<0.0001 then
    pagecontrol1.Pages[3].Highlighted := true
  else
    pagecontrol1.Pages[3].Highlighted := false;

  if now-ankunft>0.0001 then
  begin
    edit2.Text:='0';
    edit3.Text:='0';
    edit5.Text:='0';
    edit7.Text:='0';
    edit9.Text:='0';
    edit10.Text:='0';
    edit11.Text:='0';
    label1.Visible := false;
    label2.Visible := false;
    label3.Visible := false;
    label4.Visible := false;
    image2.Visible := false;
    progbar1.Visible := false;
  end;
end;

Edited 6 Years Ago by finalist: n/a

I don't really understand what is it u were saying. It's making me confused... Can u explain it more details for the code u have just given as a suggestion?

I: Integer;   
N: Integer;
begin  
for I := 0 to 4 do  
begin    N := (I+1)*128;    
ProgressBar1.Position := N;    
Memo1.Lines.Add(DateTimeToStr(Now)+'.... = .... '+IntToStr(N));    
Sleep (1000);  
end;

Edited 6 Years Ago by raud10: n/a

I don't really understand what is it u were saying. It's making me confused... Can u explain it more details for the code u have just given as a suggestion?

I: Integer;   
N: Integer;
begin  
  for I := 0 to 4 do 
  begin    
    N := (I+1)*128;    
    ProgressBar1.Position := N;    
     Memo1.Lines.Add(DateTimeToStr(Now)+'.... = .... '+IntToStr(I));    
     Sleep (1000);  
end;

Above code works with non-stop active TTimer Component, because there is not my first suggestion:
Timer1.enabled := False; { Stops Timer1's activity }
I have in my example a ProgressBar1 Component. It's Property Max is set to 640, and Property Min is set to 1. The ProgressBar Component will show you non-stop working the loop of 5 steps:

for I := 0 to 4 do 
  begin
    //.....
  end;

I have in my example a Memo1 Component, it is there to avoid using popup-Messages. Inside this Memo1 Component will be shown every step of the loop

for I := 0 to 4 do 
  begin
    //.....
  end;

but it will show What is the current time and what is the number of variable I.
Taht's all = two Components to show you how the loop works non-stop.
To stop Timer1 Component you will need may be to press a new button in your form:

procedure TForm1.Button3Click(Sender: TObject);
begin
  Timer1.Enabled := False;
end;

Edited 6 Years Ago by finalist: n/a

Now the program is working but there's one problem. When I run the program, I can't click any other button like the setting button or the run button. It's like the whole program freeze. What should I do?

procedure TForm1.Timer1Timer(Sender: TObject);
var verbrauch,TEGenergy:real;
i:Integer;
begin
   Timer1.enabled := false;
   for i := 0 to 5 do
  begin
    sleep (1000);
    if i = 5 then
      showMessage('Please get up and relax your eyes');
  end;
  Timer1.enabled := true;

if form2.visible=false then checkbox5.Checked :=false;

if (now-ankunftnode1)<0.0001 then pagecontrol1.Pages[0].Highlighted:=true
  else pagecontrol1.Pages[0].Highlighted:=false;
if (now-ankunftnode2)<0.0001 then pagecontrol1.Pages[1].Highlighted:=true
  else pagecontrol1.Pages[1].Highlighted:=false;
if (now-ankunftnode3)<0.0001 then pagecontrol1.Pages[2].Highlighted:=true
  else pagecontrol1.Pages[2].Highlighted:=false;
if (now-ankunftnode4)<0.0001 then pagecontrol1.Pages[3].Highlighted:=true
  else pagecontrol1.Pages[3].Highlighted:=false;

if now-ankunft>0.0001 then
  begin
  edit2.Text:='0';
  edit3.Text:='0';
  edit5.Text:='0';
  edit7.Text:='0';
  edit9.Text:='0';
  edit10.Text:='0';
  edit11.Text:='0';
  label1.Visible:=false;
  label2.Visible:=false;
  label3.Visible:=false;
  label4.Visible:=false;
  image2.Visible:=false;
  progbar1.Visible:=false;
  end;

Now the program is working but there's one problem. When I run the program, I can't click any other button like the setting button or the run button. It's like the whole program freeze. What should I do?

Your program does not exactly freeze ....
Your program does non-stop sleep :)

//  It is your decision to have so much:
  for i := 0 to 5 do
  begin
    sleep (1000);
    if i = 5 then
      showMessage('Please get up and relax your eyes');
  end;
//  Your program sleeps, because of your order :icon_exclaim:

Edited 6 Years Ago by finalist: n/a

Your program does not exactly freeze ....
Your program does non-stop sleep :)

//  It is your decision to have so much:
  for i := 0 to 5 do
  begin
    sleep (1000);
    if i = 5 then
      showMessage('Please get up and relax your eyes');
  end;
//  Your program sleeps, because of your order :icon_exclaim:

So I shouldn't put sleep statement? But I try to remove the sleep statment but then the pop-up screen keeping appearing every second and as for the other buttons, it can work but still the pop-up screen keep appearing. What should I do?

Edited 6 Years Ago by raud10: n/a

So I shouldn't put sleep statement?

I think you don't need the sleep statement - this is only my opinion ....
If you need 5 seconds interval, you can reach it changing the Property of the Timer1 Component Intreval := 5000 ms

Can I put this code:

Timer1.Interval := 10000;

Because I can't open up the property side to change the interval. Will this works?

Can I put this code:

Timer1.Interval := 10000;

Because I can't open up the property side to change the interval. Will this works?

You may change the property Interval at design-time

You may put this code ofcourse:

Timer1.Interval := 10000;

Now I don't want to put under TTimer column.

procedure TForm1.ComPortOpen(Sender: TObject);
begin
  Button_Open.Caption := 'Stop';
end;

procedure TForm1.ComPortClose(Sender: TObject);
begin
  if Button_Open <> nil then
    Button_Open.Caption := 'Run';
end;

procedure TForm1.ComPortRxChar(Sender: TObject; Count: Integer);
var
  Str,temp, ZW_WAR: String;
  DateTime : TDateTime;
  b,Nodeadresse:byte;
  dbm, D751, HeatSink, HeatFlux,thot,tcold,DT,TEGV,Ubat,Pout,rssi,energybalance :double;
  a:byte;
  dummy:integer;
  letzte:longint;
begin
  //get actual data and store it in "str"
  ComPort.ReadStr(Str, Count);
  //store every char from str in "rawdata" until cr + lf
  for a := 1 to length(str) do begin
    inc(laenge);
    rawdata[laenge]:=ord(str[a]);
    if (rawdata[laenge]=10) and (rawdata[laenge-1]= 13)then begin
      // if received protocol have the defined length of 11 then it is the right one
      if laenge=11 then begin
         //give rawdate from "rawdata" to "rawdata2" and clear rawdata
         for dummy:=1 to 11 do begin rawdata2[dummy]:=rawdata[dummy];rawdata[dummy]:=0;end;
         edit6.Text:='';
         for dummy:= 1 to 11 do edit6.Text:=edit6.Text+inttostr(rawdata2[dummy])+' ';
         nodeadresse:=ord(rawdata2[1]);
         //check if the address of the actual TE-Power-NODE already exists or not
         if nodeadressen[1]=0 then begin nodeadressen[1]:=nodeadresse;pagecontrol1.Pages[0].Caption:='NODE '+inttostr(nodeadresse);end;
         node:=99;
         for dummy:=1 to nodeanzahl do
             if nodeadressen[dummy]=nodeadresse then node:=dummy;
             if node = 99 then if nodeanzahl<5 then begin
                inc(nodeanzahl);nodeadressen[nodeanzahl]:=nodeadresse;node:=nodeanzahl;
                pagecontrol1.Pages[nodeanzahl-1].Caption:='NODE '+inttostr(nodeadresse);pagecontrol1.Pages[nodeanzahl-1].TabVisible:=true;
             end;

In these three procedure, where can I put the counter to run the pop-up screen. What I want now is once I click the RUN button, after sometime the pop-up screen will appear. How to put it in code?

var
    SMsg:     string;

procedure TForm1.FormCreate(Sender: TObject);
begin
  Timer1.Enabled := False;
end;

procedure TForm1.Timer1Timer(Sender: TObject);
begin
  Timer1.Enabled := False;
  ShowMessage(SMsg);
end;

procedure TForm1.PopUpMsg(I: Integer;  S: string);
begin
  SMsg := S;
  Timer1.Interval := I;
  Timer1.Enabled := True;
end;

procedure TForm1.ComPortOpen(Sender: TObject);
begin
  Button_Open.Caption := 'Stop';
  PopUpMsg(8000,  'Com Port is Open');
end;

procedure TForm1.ComPortClose(Sender: TObject);
begin
  if Button_Open <> nil then
    Button_Open.Caption := 'Run';
  PopUpMsg(10000,  'Com Port is Closed');
end;

procedure TForm1.ComPortRxChar(Sender: TObject; Count: Integer);
var
  Str,temp, ZW_WAR: String;
  DateTime : TDateTime;
  b,Nodeadresse:byte;
  dbm, D751, HeatSink, HeatFlux,thot,tcold,DT,TEGV,Ubat,Pout,rssi,energybalance :double;
  a:byte;
  dummy:integer;
  letzte:longint;
begin
  //get actual data and store it in "str"
  ComPort.ReadStr(Str, Count);
  //store every char from str in "rawdata" until cr + lf
  for a := 1 to length(str) do begin
    inc(laenge);
    rawdata[laenge]:=ord(str[a]);
    if (rawdata[laenge]=10) and (rawdata[laenge-1]= 13)then begin
      // if received protocol have the defined length of 11 then it is the right one
      if laenge=11 then begin
         //give rawdate from "rawdata" to "rawdata2" and clear rawdata
         for dummy:=1 to 11 do begin rawdata2[dummy]:=rawdata[dummy];rawdata[dummy]:=0;end;
         edit6.Text:='';
         for dummy:= 1 to 11 do edit6.Text:=edit6.Text+inttostr(rawdata2[dummy])+' ';
         nodeadresse:=ord(rawdata2[1]);
         //check if the address of the actual TE-Power-NODE already exists or not
         if nodeadressen[1]=0 then begin nodeadressen[1]:=nodeadresse;pagecontrol1.Pages[0].Caption:='NODE '+inttostr(nodeadresse);end;
         node:=99;
         for dummy:=1 to nodeanzahl do
             if nodeadressen[dummy]=nodeadresse then node:=dummy;
             if node = 99 then if nodeanzahl<5 then begin
                inc(nodeanzahl);nodeadressen[nodeanzahl]:=nodeadresse;node:=nodeanzahl;
                pagecontrol1.Pages[nodeanzahl-1].Caption:='NODE '+inttostr(nodeadresse);pagecontrol1.Pages[nodeanzahl-1].TabVisible:=true;
  PopUpMsg(5000,  'Get Up and relax your eyes');
end;

For these three codes, I can just declare is it?

procedure TForm1.FormCreate(Sender: TObject);
begin  
Timer1.Enabled := False;
end; 
procedure TForm1.Timer1Timer(Sender: TObject);
begin  
Timer1.Enabled := False;  
ShowMessage(SMsg);
end; 
procedure TForm1.PopUpMsg(I: Integer;  S: string);
begin  
SMsg := S;  
Timer1.Interval := I;  
Timer1.Enabled := True;
end;

Edited 6 Years Ago by raud10: n/a

var
    SMsg:     string;

procedure TForm1.FormCreate(Sender: TObject);
begin
  Timer1.Enabled := False;
end;

procedure TForm1.Timer1Timer(Sender: TObject);
begin
  Timer1.Enabled := False;
  ShowMessage(SMsg);
end;

procedure TForm1.PopUpMsg(I: Integer;  S: string);
begin
  SMsg := S;
  Timer1.Interval := I;
  Timer1.Enabled := True;
end;

procedure TForm1.ComPortOpen(Sender: TObject);
begin
  Button_Open.Caption := 'Stop';
  PopUpMsg(8000,  'Com Port is Open');
end;

procedure TForm1.ComPortClose(Sender: TObject);
begin
  if Button_Open <> nil then
    Button_Open.Caption := 'Run';
  PopUpMsg(10000,  'Com Port is Closed');
end;

procedure TForm1.ComPortRxChar(Sender: TObject; Count: Integer);
var
  Str,temp, ZW_WAR: String;
  DateTime : TDateTime;
  b,Nodeadresse:byte;
  dbm, D751, HeatSink, HeatFlux,thot,tcold,DT,TEGV,Ubat,Pout,rssi,energybalance :double;
  a:byte;
  dummy:integer;
  letzte:longint;
begin
  //get actual data and store it in "str"
  ComPort.ReadStr(Str, Count);
  //store every char from str in "rawdata" until cr + lf
  for a := 1 to length(str) do begin
    inc(laenge);
    rawdata[laenge]:=ord(str[a]);
    if (rawdata[laenge]=10) and (rawdata[laenge-1]= 13)then begin
      // if received protocol have the defined length of 11 then it is the right one
      if laenge=11 then begin
         //give rawdate from "rawdata" to "rawdata2" and clear rawdata
         for dummy:=1 to 11 do begin rawdata2[dummy]:=rawdata[dummy];rawdata[dummy]:=0;end;
         edit6.Text:='';
         for dummy:= 1 to 11 do edit6.Text:=edit6.Text+inttostr(rawdata2[dummy])+' ';
         nodeadresse:=ord(rawdata2[1]);
         //check if the address of the actual TE-Power-NODE already exists or not
         if nodeadressen[1]=0 then begin nodeadressen[1]:=nodeadresse;pagecontrol1.Pages[0].Caption:='NODE '+inttostr(nodeadresse);end;
         node:=99;
         for dummy:=1 to nodeanzahl do
             if nodeadressen[dummy]=nodeadresse then node:=dummy;
             if node = 99 then if nodeanzahl<5 then begin
                inc(nodeanzahl);nodeadressen[nodeanzahl]:=nodeadresse;node:=nodeanzahl;
                pagecontrol1.Pages[nodeanzahl-1].Caption:='NODE '+inttostr(nodeadresse);pagecontrol1.Pages[nodeanzahl-1].TabVisible:=true;
  PopUpMsg(5000,  'Get Up and relax your eyes');
end;

I try to put in all the code that were given to my program but when I run it, there's a lot of errors. What can I do???

To avoid errors, you must to declare these in the public section of TForm1:

// type
  // TForm1 = class(TForm)
  // ........
  public
    SMsg:     string;
    procedure PopUpMsg(I: Integer;  S: string);
    { Public declarations } 
  // ........

Edited 6 Years Ago by finalist: n/a

To avoid errors, you must to declare these in the public section of TForm1:

// type
  // TForm1 = class(TForm)
  // ........
  public
    SMsg:     string;
    procedure PopUpMsg(I: Integer;  S: string);
    { Public declarations } 
  // ........

Can I use this code instead?

procedure TForm1.ComPortRxChar(Sender: TObject; Count: Integer);
var
  Str,temp, ZW_WAR: String;
  DateTime : TDateTime;
  b,Nodeadresse:byte;
  dbm, D751, HeatSink, HeatFlux,thot,tcold,DT,TEGV,Ubat,Pout,rssi,energybalance :double;
  a:byte;
  dummy:integer;
  letzte:longint;
  i:Integer;
begin
    Timer1.enabled := false;
   for i := 0 to 5 do
  begin
    Timer1.Interval := 10000;
    if i = 5 then
      showMessage('Please get up and relax your eyes');
  end;
  Timer1.enabled := true;
  //get actual data and store it in "str"
  ComPort.ReadStr(Str, Count);
  //store every char from str in "rawdata" until cr + lf
  for a := 1 to length(str) do begin
    inc(laenge);
    rawdata[laenge]:=ord(str[a]);
    if (rawdata[laenge]=10) and (rawdata[laenge-1]= 13)then begin
      // if received protocol have the defined length of 11 then it is the right one
      if laenge=11 then begin
         //give rawdate from "rawdata" to "rawdata2" and clear rawdata
         for dummy:=1 to 11 do begin rawdata2[dummy]:=rawdata[dummy];rawdata[dummy]:=0;end;
         edit6.Text:='';
         for dummy:= 1 to 11 do edit6.Text:=edit6.Text+inttostr(rawdata2[dummy])+' ';
         nodeadresse:=ord(rawdata2[1]);
         //check if the address of the actual TE-Power-NODE already exists or not
         if nodeadressen[1]=0 then begin nodeadressen[1]:=nodeadresse;pagecontrol1.Pages[0].Caption:='NODE '+inttostr(nodeadresse);end;
         node:=99;
         for dummy:=1 to nodeanzahl do
             if nodeadressen[dummy]=nodeadresse then node:=dummy;
             if node = 99 then if nodeanzahl<5 then begin
                inc(nodeanzahl);nodeadressen[nodeanzahl]:=nodeadresse;node:=nodeanzahl;
                pagecontrol1.Pages[nodeanzahl-1].Caption:='NODE '+inttostr(nodeadresse);pagecontrol1.Pages[nodeanzahl-1].TabVisible:=true;
             end;

You may use the following:

procedure TForm1.Timer1Timer(Sender: TObject);
begin
  Timer1.Enabled := False;
  ShowMessage(SMsg);
end;

procedure TForm1.ComPortRxChar(Sender: TObject; Count: Integer);
var
  Str,temp, ZW_WAR: String;
  DateTime : TDateTime;
  b,Nodeadresse:byte;
  dbm, D751, HeatSink, HeatFlux,thot,tcold,DT,TEGV,Ubat,Pout,rssi,energybalance :double;
  a:byte;
  dummy:integer;
  letzte:longint;
begin
    Timer1.Interval := 10000;
    SMsg := 'Please get up and relax your eyes';
  Timer1.Enabled := True;
  //get actual data and store it in "str"
  ComPort.ReadStr(Str, Count);
  //store every char from str in "rawdata" until cr + lf
  for a := 1 to length(str) do begin
    inc(laenge);
    rawdata[laenge]:=ord(str[a]);
    if (rawdata[laenge]=10) and (rawdata[laenge-1]= 13)then begin
      // if received protocol have the defined length of 11 then it is the right one
      if laenge=11 then begin
         //give rawdate from "rawdata" to "rawdata2" and clear rawdata
         for dummy:=1 to 11 do begin rawdata2[dummy]:=rawdata[dummy];rawdata[dummy]:=0;end;
         edit6.Text:='';
         for dummy:= 1 to 11 do edit6.Text:=edit6.Text+inttostr(rawdata2[dummy])+' ';
         nodeadresse:=ord(rawdata2[1]);
         //check if the address of the actual TE-Power-NODE already exists or not
         if nodeadressen[1]=0 then begin nodeadressen[1]:=nodeadresse;pagecontrol1.Pages[0].Caption:='NODE '+inttostr(nodeadresse);end;
         node:=99;
         for dummy:=1 to nodeanzahl do
             if nodeadressen[dummy]=nodeadresse then node:=dummy;
             if node = 99 then if nodeanzahl<5 then begin
                inc(nodeanzahl);nodeadressen[nodeanzahl]:=nodeadresse;node:=nodeanzahl;
                pagecontrol1.Pages[nodeanzahl-1].Caption:='NODE '+inttostr(nodeadresse);pagecontrol1.Pages[nodeanzahl-1].TabVisible:=true;
end;

Edited 6 Years Ago by finalist: n/a

You may use the following:

procedure TForm1.Timer1Timer(Sender: TObject);
begin
  Timer1.Enabled := False;
  ShowMessage(SMsg);
end;

procedure TForm1.ComPortRxChar(Sender: TObject; Count: Integer);
var
  Str,temp, ZW_WAR: String;
  DateTime : TDateTime;
  b,Nodeadresse:byte;
  dbm, D751, HeatSink, HeatFlux,thot,tcold,DT,TEGV,Ubat,Pout,rssi,energybalance :double;
  a:byte;
  dummy:integer;
  letzte:longint;
begin
    Timer1.Interval := 10000;
    SMsg := 'Please get up and relax your eyes';
  Timer1.Enabled := True;
  //get actual data and store it in "str"
  ComPort.ReadStr(Str, Count);
  //store every char from str in "rawdata" until cr + lf
  for a := 1 to length(str) do begin
    inc(laenge);
    rawdata[laenge]:=ord(str[a]);
    if (rawdata[laenge]=10) and (rawdata[laenge-1]= 13)then begin
      // if received protocol have the defined length of 11 then it is the right one
      if laenge=11 then begin
         //give rawdate from "rawdata" to "rawdata2" and clear rawdata
         for dummy:=1 to 11 do begin rawdata2[dummy]:=rawdata[dummy];rawdata[dummy]:=0;end;
         edit6.Text:='';
         for dummy:= 1 to 11 do edit6.Text:=edit6.Text+inttostr(rawdata2[dummy])+' ';
         nodeadresse:=ord(rawdata2[1]);
         //check if the address of the actual TE-Power-NODE already exists or not
         if nodeadressen[1]=0 then begin nodeadressen[1]:=nodeadresse;pagecontrol1.Pages[0].Caption:='NODE '+inttostr(nodeadresse);end;
         node:=99;
         for dummy:=1 to nodeanzahl do
             if nodeadressen[dummy]=nodeadresse then node:=dummy;
             if node = 99 then if nodeanzahl<5 then begin
                inc(nodeanzahl);nodeadressen[nodeanzahl]:=nodeadresse;node:=nodeanzahl;
                pagecontrol1.Pages[nodeanzahl-1].Caption:='NODE '+inttostr(nodeadresse);pagecontrol1.Pages[nodeanzahl-1].TabVisible:=true;
end;
procedure TForm1.Timer1Timer(Sender: TObject);
begin
  Timer1.Enabled := False;
  ShowMessage(SMsg);
end;

For this code, I have to put under the TTimer procedure is it?

procedure TForm1.Timer1Timer(Sender: TObject);
begin
  Timer1.Enabled := False;
  ShowMessage(SMsg);
end;

For this code, I have to put under the TTimer procedure is it?

That is obviously Timer1Timer procedure:)

SMsg := 'Please get up and relax your eyes';

Is this a pop-up screen when I run the program?

SMsg := 'Please get up and relax your eyes';

Is this a pop-up screen when I run the program?

No, this is a string for a popup-window, because variable SMsg is a string variable ....

procedure TForm1.Timer1Timer(Sender: TObject);
begin
  Timer1.Enabled := False;
  ShowMessage(SMsg); // <= But this is a popup-Window;
end;

Edited 6 Years Ago by finalist: n/a

No, this is a string for a popup-window, because variable SMsg is a string variable ....

procedure TForm1.Timer1Timer(Sender: TObject);
begin
  Timer1.Enabled := False;
  ShowMessage(SMsg); // <= But this is a popup-Window;
end;

1st question :

Timer1.Interval := 10000;
    SMsg := 'Please get up and relax your eyes';
  Timer1.Enabled := True;

After it counts, the pop-up screen will appear but after I click OK will the pop-up screen appear again?

2nd question :

procedure TForm1.Timer1Timer(Sender: TObject);
begin  
Timer1.Enabled := False;  
ShowMessage(SMsg); // <= But this is a popup-Window;
end;

For the code above, when I run the program, the pop-up screen will appear. But if I don't want any pop-up screen before I click the RUN button, what shpuld I do?

Edited 6 Years Ago by raud10: n/a

This article has been dead for over six months. Start a new discussion instead.