[Okta Webinar] Learn how to a build a cloud-first strategyRegister Now

x
?
Solved

Save Dialog

Posted on 2001-07-16
9
Medium Priority
?
255 Views
Last Modified: 2010-04-04
Does anyone know how to change the text on the buttons in the SaveDialog under Delphi 2?
0
Comment
Question by:winuser2000
  • 4
  • 4
9 Comments
 
LVL 21

Expert Comment

by:gemarti
ID: 6288106
You may be able to locate the properties for this dialog in Dialog.pas

Locate ButtonNames....

You should save this file to a different name before you go making any changes to it or else you'll be reinstalling Delphi!

You'll also have to import the "new" savedialog as a new component!



0
 

Author Comment

by:winuser2000
ID: 6288242
gemarti:  I had a look in the Dialog.pas but no button names labelled "save".  All that was there was:

ButtonNames: array[TMsgDlgBtn] of string = ('Yes', 'No', 'OK', 'Cancel', 'Abort', 'Retry', 'Ignore', 'All', 'Help');

and i checked throught the rest of the code but no luck
0
 
LVL 22

Expert Comment

by:Mohammed Nasman
ID: 6288633
Hello

   you can do that with SetDlgItemText API, in the onShowEvent for the SaveDialog place two these lines

  SetDlgItemText(GetParent(OpenDialog1.Handle), IDOK, PChar('New &Open'));
  SetDlgItemText(GetParent(OpenDialog1.Handle), IDCANCEL, PChar('New &Cancel'));


Best regards
Mohammed Nasman
0
Independent Software Vendors: 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!

 

Author Comment

by:winuser2000
ID: 6288668
Thanks mnasman but there is no onshowevent for the savedialog in delphi 2as far as i can see.
0
 
LVL 22

Expert Comment

by:Mohammed Nasman
ID: 6288683
Sorry winuser2000

 I mean the event Onshow not OnshowEvnet
procedure TForm1.OpenDialog1Show(Sender: TObject);
0
 

Author Comment

by:winuser2000
ID: 6289004
thanks mnasman but i cannot compile as it keeps saying about "handle" being an undeclared identifier - i have looked in the help files to see if it would give any answer but as usual the help file is not very useful.

any ideas?
0
 
LVL 22

Accepted Solution

by:
Mohammed Nasman earned 400 total points
ID: 6289040
Helli Winuser2000

  I went to computer have delphi2 and test the code, i'm sorry to tell you that not working with delphi 2 :(

 Open/save dialog, don't have the onshow event

also there's no handle for open/save dialog :((

  I tested my code with delphi5/6 and it's working fine, but with delphi two it will not work

0
 

Author Comment

by:winuser2000
ID: 6289052
Sheesh, story of my life finding out that it won't work.  Thanks for checking it out for me and for the help you gave.  I shall give you the points because you helped the most.
0
 
LVL 22

Expert Comment

by:Mohammed Nasman
ID: 6289077
thanks alot winuser2000, I don't deserve the points cuz i didn't solve ur problem

  there's also another way, using sendmessage and WM_SetText, but also require the handle, and that's not exist with opendialog in delphi2 :(

 try to check in torry.net site, maybe there's some free components can do that for you

Mohammed
0

Featured Post

Keep up with what's happening at Experts Exchange!

Sign up to receive Decoded, a new monthly digest with product updates, feature release info, continuing education opportunities, and more.

Question has a verified solution.

If you are experiencing a similar issue, please ask a related question

The uses clause is one of those things that just tends to grow and grow. Most of the time this is in the main form, as it's from this form that all others are called. If you have a big application (including many forms), the uses clause in the in…
Objective: - This article will help user in how to convert their numeric value become words. How to use 1. You can copy this code in your Unit as function 2. than you can perform your function by type this code The Code   (CODE) The Im…
This video shows how to quickly and easily deploy an email signature for all users in Office 365 and prevent it from being added to replies and forwards. (the resulting signature is applied on the server level in Exchange Online) The email signat…
Please read the paragraph below before following the instructions in the video — there are important caveats in the paragraph that I did not mention in the video. If your PaperPort 12 or PaperPort 14 is failing to start, or crashing, or hanging, …
Suggested Courses

834 members asked questions and received personalized solutions in the past 7 days.

Join the community of 500,000 technology professionals and ask your questions.

Join & Ask a Question