Author: Jonas Bilinkevicius
I need a dialog for the user to select files to delete. The TOpenDialog works just
fine except that the button says Open, and I need it to say Delete.
Answer:
You will need to include Commdlg in your uses clause. In the TOpenDialog.OnShow
event:
1 2 procedure TForm1.OpenDialog1Show(Sender: TObject);
3 begin4 SendMessage(GetParent(OpenDialog1.Handle), CDM_SETCONTROLTEXT, 1,
5 Integer(PChar('Delete')));
6 end;