Delphiran - Delphi Tips Question : How can I
change the default caption in a TSavedialog ?
Answer
: Changing control captions in the common dialogs:
var buffer:
array [0..80] of
char;] begin StrCopy(
Buffer, 'Create New' ); SendMessage( GetParent((Sender as TSaveDialog).handle), CDM_SETCONTROLTEXT, IDOK, integer(@Buffer)); end;
You need to add
the commdlg unit to your uses clause for the message constant. The code above
can be used from the dialogs OnShow event, for example.