Summary Table

Categories Total Count
PII 0
URL 0
DNS 0
EKL 0
IP 0
PORT 0
VsID 0
CF 0
AI 0
VPD 0
PL 0
Other 0

File Content

unit fGMV_Waiting;

interface

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

type
TfrmWaiting = class(TForm)
Panel1: TPanel;
Label1: TLabel;
lblPort: TLabel;
private
{ Private declarations }
public
{ Public declarations }
end;

var
frmWaiting: TfrmWaiting;

function newWaiting: TfrmWaiting;
procedure updateWaiting(aMessage:String);
implementation

{$R *.dfm}
function newWaiting: TfrmWaiting;
begin
if not assigned(frmWaiting) then
begin
Application.CreateForm(TfrmWaiting,frmWaiting);
frmWaiting.Show;
end;
Result := frmWaiting;
end;

procedure updateWaiting(aMessage:String);
begin
NewWaiting;
if Assigned(frmWaiting) then
frmWaiting.lblPort.Caption := aMessage;
Application.ProcessMessages;
end;

end.