// Getestet mit D4 unter XP

// Mit dem folgenden Code kann man die Beschriftung einiger Buttons
// und Labels im "TOpenDialog" ändern. Im Objektinspektor wird
// durch Doppelklick auf "OnShow" die Prozedur erzeugt und dann
// folgendermaßen ergänzt:

 

procedure TForm1.OpenDialog1Show(Sender: TObject); 
var h: THandle; 
begin 
  h := getparent(opendialog1.handle); 
  SetDlgItemText(h, 1, 'Laden');          // Öffnen - Button 
  SetDlgItemText(h, 2, 'Lieber nicht');   // Abbrechen - Button 
  SetDlgItemText(h, 1089, 'Typus');       // Dateityp - Label 
  SetDlgItemText(h, 1090, 'Bezeichnung'); // Dateiname - Label 
  SetDlgItemText(h, 1091, 'Ordner');      // Suchen in - Label 
end;

// P.S.:
// Ähnlich kann man den"TSaveDialog" bearbeiten, wobei aber
// SetDlgItemText(h, 1, ...  nicht funktioniert.