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)
|