need assistance - overlay message that shows on top and closes
lazarus / 39-Graphics

----------------------------------------------------------------------
nesa24 · 2010-04-29 07:41

Hello,
i need assistance how to create exe that displays a message on top of
all programs and closes it 3s after message is displayed.
Can someone assist me ?


Best regards
keep open sourcing

----------------------------------------------------------------------
Imants · 2010-04-29 08:15

I think it would be something like this:


unit Unit1;

{$mode objfpc}{$H+}

interface

uses
  Classes, SysUtils, FileUtil, LResources, Forms, Controls, Graphics,
Dialogs,
  StdCtrls, ExtCtrls;

type

  { TForm1 }

  TForm1 = class(TForm)
    btOk: TButton;
    lblMessage: TLabel;
    tmClose: TTimer;
    procedure tmCloseTimer(Sender: TObject);
  private
    { private declarations }
  public
    class Procedure ShowMessage(aMessage: string);
  end;

var
  Form1: TForm1;

implementation

procedure TForm1.tmCloseTimer(Sender: TObject);
begin
  ModalResult := mrOK;
end;

{$R *.lfm}

{ TForm1 }

class procedure TForm1.ShowMessage(aMessage: string);
begin
  with TForm1.Create(nil) do
  try
    FormStyle := fsStayOnTop;
    lblMessage.Caption := aMessage;
    tmClose.Enabled := True;
    ShowModal;
  finally
    Free
  end;
end;

end.

I put uo timer with interval 3000 which close form after time runs out

----------------------------------------------------------------------
nesa24 · 2010-04-30 18:37

hello,
thank you for example but i am getting errors when i want to run
I have created form/timer/button/label

can someone assist me with this issue 

best regards

----------------------------------------------------------------------
typo · 2010-04-30 20:39

Code: [Select]procedure TForm1.Timer1Timer(Sender:TObject);
begin
  bringtofront;
end; 
With FormStyle as fsStayOnTop.

----------------------------------------------------------------------
Imants · 2010-05-01 06:28

Quote from: nesa24 on April 30, 2010, 08:37:53 pmhello,
thank you for example but i am getting errors when i want to run
I have created form/timer/button/label

can someone assist me with this issue 

best regards

What kind of error do you get?

----------------------------------------------------------------------
nesa24 · 2010-05-01 12:54

Thanks for interest. Will try this weekend when i have time and post
errors.
Best regards to all

----------------------------------------------------------------------
nesa24 · 2010-05-03 08:12

Errors are
Parameter Sender not used
and
Error while linking

i created timer and message form
can someone assist me?
best regards

----------------------------------------------------------------------
Leledumbo · 2010-05-04 02:13

QuoteParameter Sender not usedIt's not an error, just a hint. Usually
an indication of useless parameter, but not always.
QuoteError while linkingWhere did you save your project?

----------------------------------------------------------------------
nesa24 · 2010-05-04 04:35

yes i did save project.
can someone make project and attach it so i could see where i am
making mistakes?

Best regards to all

----------------------------------------------------------------------
Imants · 2010-05-05 04:31

Here is example project.
I takes two params(one for messge one for title)