Delphi-PRAXiS

Delphi-PRAXiS (https://www.delphipraxis.net/forum.php)
-   GUI-Design mit VCL / FireMonkey / Common Controls (https://www.delphipraxis.net/18-gui-design-mit-vcl-firemonkey-common-controls/)
-   -   Delphi Im TSavedialog den String 'Speichern' verändern? (https://www.delphipraxis.net/81175-im-tsavedialog-den-string-speichern-veraendern.html)

Hallo_Thomas 21. Nov 2006 23:35


Im TSavedialog den String 'Speichern' verändern?
 
Hallo,

wie kann ich im Savedialog den Button 'Speichern' umbenennen?

Ich krübble daran echt schon ne weile!!!

Luckie 21. Nov 2006 23:48

Re: Im TSavedialog den String 'Speichern' verändern?
 
Einfach mal nach Hier im Forum suchenTSaveDialog suchen:
http://www.delphipraxis.net/internal...dialog&start=0

Hallo_Thomas 22. Nov 2006 00:54

Re: Im TSavedialog den String 'Speichern' verändern?
 
Danke, dass hatte ich schon durchgelesen und auch das da verlinkte Thema hat mir nicht weiter geholfen!Den Opendialog habe ich auch hinbekommen, nur beim Savedialog, beim Speichern Button find ich nix!!!

Reinhard Kern 22. Nov 2006 10:59

Re: Im TSavedialog den String 'Speichern' verändern?
 
Zitat:

Zitat von Hallo_Thomas
Danke, dass hatte ich schon durchgelesen und auch das da verlinkte Thema hat mir nicht weiter geholfen!Den Opendialog habe ich auch hinbekommen, nur beim Savedialog, beim Speichern Button find ich nix!!!

Hallo,

bei den Standarddialogen GetOpenFilename und GetSaveFilename (Win32 API, nicht Delphi) kann man den Dialog bzw. dessen grafische Oberfläche durch einen eigenen Entwurf erweitern (Template). Die Beschriftung vorhandener Controls wird geändert mit CDM_SETCONTROLTEXT - Messages.

Gruss Reinhard

Hallo_Thomas 22. Nov 2006 14:25

Re: Im TSavedialog den String 'Speichern' verändern?
 
@ Reinhard

Dankeschön, dank Dir bin ich auf die Lösung gestossen!!!!!!!!!!!!

Ich hab bei unseren Schweizer Freunden eh bissl abgeschaut:
www.swissdelphicenter.ch

Delphi-Quellcode:
procedure TForm1.SaveDialog1Show(Sender: TObject);
const
  LB_FILETYPES_ID = 1089; // "File types:" label
  LB_FILENAME_ID = 1090; // "File name:" label
  LB_DRIVES_ID = 1091; // "Look in:" label

  Str1 = 'Four';
  Str2 = 'Five';
  Str3 = 'One';
  Str4 = 'Two';
  Str5 = 'Three';
var
  hSaveDialog: HWND;
begin
  hSaveDialog := GetParent(SaveDialog1.Handle);
  SendMessage(hSaveDialog, CDM_SETCONTROLTEXT, idOk, Longint(PChar(Str1)));
  SendMessage(hSaveDialog, CDM_SETCONTROLTEXT, idCancel, Longint(PChar(Str2)));
  SendMessage(hSaveDialog, CDM_SETCONTROLTEXT, LB_FILETYPES_ID, Longint(PChar(Str3)));
  SendMessage(hSaveDialog, CDM_SETCONTROLTEXT, LB_FILENAME_ID, Longint(PChar(Str4)));
  SendMessage(hSaveDialog, CDM_SETCONTROLTEXT, LB_DRIVES_ID, Longint(PChar(Str5)));
end;

moelski 14. Feb 2007 09:02

Re: Im TSavedialog den String 'Speichern' verändern?
 
Moin !

Kann es sein dass das Beispiel nur mit dem alten Save Dialog funzt?
Unter XP mit dem neuen Save Dialog rennt das nicht.

Any hints !?


Alle Zeitangaben in WEZ +1. Es ist jetzt 21:18 Uhr.

Powered by vBulletin® Copyright ©2000 - 2024, Jelsoft Enterprises Ltd.
LinkBacks Enabled by vBSEO © 2011, Crawlability, Inc.
Delphi-PRAXiS (c) 2002 - 2023 by Daniel R. Wolf, 2024 by Thomas Breitkreuz