TIP: Click on subject to list as thread! ANSI
echo: delphi
to: BART BROERSMA
from: DON KRAUSE
date: 1996-12-19 13:58:00
subject: Message dsiplaying...

BB>Qestion: How do I display a simple messagebox like thing, without any
  >buttons or other controls, that will display a message and will be removed
  >from the screen after some other task (copy files) is complete ?
  >(Delphi 1.0)
Create a small form (for this discussion, say form2), overwrite the SHOW 
procedure, so you can pass it a string, and use that.
BB>Like:
BB>...
  >DisplayMessage;
Becomes: Form2.show('This is the message');
  >...
  >OpenTheFiles;
  >CopyTheFiles;
  >CloseTheFiles;
  >...
  >RemoveMessageFromScreen;
Becomes: Form2.close;
When I was testing this suggestion, I put one Text component on my form2, and 
one image object. I copied the windows info icon, (the blue circle around the 
white '!'), made the form2.caption = 'Information'.
The over written show procedure is:
tForm2.Show(s : string);
begin
        inherited show;
        text1.caption := s;
end;
You could of course expand this to include all the functionality the a 
messagedlg gives you, but this is just a quick example.
=Don=
---
 * QMPro 1.52 * Error #3655: COLDBEER.CAN not found, SYSOP not loaded! 
--- InterEcho 1.18
---------------
* Origin: the Squirrel's Nest BBS þ (909) 338-4748 (1:207/2)

SOURCE: echomail via exec-pc

Email questions or comments to sysop@ipingthereforeiam.com
All parts of this website painstakingly hand-crafted in the U.S.A.!
IPTIA BBS/MUD/Terminal/Game Server List, © 2025 IPTIA Consulting™.