Go Premium for a chance to win a PS4. Enter to Win

x
  • Status: Solved
  • Priority: Medium
  • Security: Public
  • Views: 553
  • Last Modified:

ShowMessage

Hi.

I want to show a message when a proc starts and then terminate it when the calculation end.
(form is hidden)
How can i show a message without the ok button and then kill it ?
0
CodedK
Asked:
CodedK
1 Solution
 
Tomas Helgi JohannssonCommented:
    Hi!
Why don't you create a Form displaying the message in a Label
Displaying and hiding form is easy ;)

Regards,
  Tomas Helgi
0
 
atul_parmarCommented:
Another reason to go with TomasHelgi is that the ShowMessage and MessageDlg are modal, so until it is terminated, it won't execute the next line of code. So, even if you use your form to display the msg, it should be modalless.
0
 
CodedKAuthor Commented:
Hi, thanks for the replys.
If there is no other way to handle the message of course i'll have to use the form...
I was thinking if someone has a source or a customized message dialog that can accept commands.

0
Concerto Cloud for Software Providers & ISVs

Can Concerto Cloud Services help you focus on evolving your application offerings, while delivering the best cloud experience to your customers? From DevOps to revenue models and customer support, the answer is yes!

Learn how Concerto can help you.

 
ginsonicCommented:
MessageDlg('Welcome!', mtCustom, [], 0) ;
0
 
ginsonicCommented:
Show message with:

MessageDlg('I wish to do something in this time!', mtWarning, [], 0);

when all is done then close with:
var wh:HWND;
begin
  wh:=FindWindowByTitle('Warning');
  PostMessage (Wh, WM_CLOSE, 0, 0);
end;

the function for FindWindowByTitle is:

function TForm1.FindWindowByTitle(WindowTitle: string): Hwnd;
var
  NextHandle: Hwnd;
  NextTitle: array[0..260] of char;
begin
  NextHandle := GetWindow(Application.Handle, GW_HWNDFIRST);
  while NextHandle > 0 do begin
    GetWindowText(NextHandle, NextTitle, 255);
    if pos(WindowTitle, StrPas(NextTitle)) <> 0 then
    begin
      result := NextHandle;
      exit;
    end else
      NextHandle := GetWindow(NextHandle, GW_HWNDNEXT);
  end;
  result := 0;
end;
0
 
CodedKAuthor Commented:
Thank you GinSonic :)
0
 
ginsonicCommented:
My pleasure!
0

Featured Post

Technology Partners: We Want Your Opinion!

We value your feedback.

Take our survey and automatically be enter to win anyone of the following:
Yeti Cooler, Amazon eGift Card, and Movie eGift Card!

Tackle projects and never again get stuck behind a technical roadblock.
Join Now