Entwickler-Ecke
Grafische Benutzeroberflächen (VCL & FireMonkey) - OpenDialog - Titelzeile ändern
sahib - Sa 06.08.05 01:25
Titel: OpenDialog - Titelzeile ändern
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
Benutzername - Sa 06.08.05 01:41
Probiers mal mit TOpenDialog.Title ;)
sahib - Sa 06.08.05 09:13
LOLwech
Sorry, das ist mir bisher noch nicht passiert. Wonach ich da wohl letzte Nacht gesucht habe? Muss wohl in der falschen Control gewesen sein.
Danke, danke.
Christian
Entwickler-Ecke.de based on phpBB
Copyright 2002 - 2011 by Tino Teuber, Copyright 2011 - 2025 by Christian Stelzmann Alle Rechte vorbehalten.
Alle Beiträge stammen von dritten Personen und dürfen geltendes Recht nicht verletzen.
Entwickler-Ecke und die zugehörigen Webseiten distanzieren sich ausdrücklich von Fremdinhalten jeglicher Art!