Hallo.
Mit folgenden Source ändere ich die Beschriftung der 'Öffnen'-Schaltfläche. Besteht die Möglichkeit, damit auch die Tielzeile zu ändern? Wenn nicht, wie könnte ich das bewerkstelligen?
Ich wollte mir die nette Eigenschaft des OpenDialogs zunutze machen, dass mit dem Filter nach bestimmten Dateiarten gesucht werden kann und eine entsprechende Datei ausgewählt wird. Da dieser Dialog direkt nach dem Starten des Programmes auftauchen kann (eine zu ladende Datei existiert nicht - soll danach gesucht werden?), wollte ich ganz gerne eine in der Aussage kräftigere Überschrift setzen.
Delphi-Quelltext
1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
| procedure TForm1.OpenDialog1Show(Sender: TObject);
var Dlg : TOpenDialog;
DlgWnd: HWnd;
begin
Dlg := Sender as TOpenDialog;
if ofOldStyleDialog in Dlg.Options then
DlgWnd := Dlg.Handle
else
DlgWnd := GetParent(Dlg.Handle);
if GetParent(DlgWnd) <> Application.Handle then
Exit;
SetDlgItemText(DlgWnd, 1, 'Erstellen')
end; |
Wieder einmal vielen Dank und ein schönes Wochenende,
Christian
