VirtueTech
asked on
How to Pop Up a message to user
Newb question: How do I pop up a message to the user if the QUERY got no results to show in my DBGRID?
ASKER CERTIFIED SOLUTION
membership
This solution is only available to members.
To access this solution, you must be a member of Experts Exchange.
ASKER
Nevermind I found it. Thanks.
mmm... the quick and dirty way:
procedure ShowMessageWithTitle(const Msg, Title:string); //use this procedure, provide message and title
var
s:string;
begin
s:=Application.Title; //save the original title
Application.Title:=Title; //put the title you want in your message box
ShowMessage(Msg);
Application.Title:=s //restore original title
end;
procedure TForm1.Button1Click(Sender : TObject);
begin
ShowMessageWithTitle('a big long message', 'with title')
end;
procedure ShowMessageWithTitle(const
var
s:string;
begin
s:=Application.Title; //save the original title
Application.Title:=Title; //put the title you want in your message box
ShowMessage(Msg);
Application.Title:=s //restore original title
end;
procedure TForm1.Button1Click(Sender
begin
ShowMessageWithTitle('a big long message', 'with title')
end;
or the right way... lol
MessageBox(Handle, 'The message here', 'The title here', 0)
MessageBox(Handle, 'The message here', 'The title here', 0)
guess the other wasn't so quick... =o(
ASKER
How can I change the popup window title/caption?