Hi
DP'ler,
ich möchte die Standardtexte in Tprintdialog ändern.
Mit Topen bzw Tclosedialog funktioniert das prima mit Tprintdialog nicht.
Delphi-Quellcode:
procedure TPrintdlg.printDialogEEShow(Sender: TObject);
const LB_FILETYPES_ID = 1089;LB_FILENAME_ID = 1090;LB_DRIVES_ID = 1091;LB_Title=1088;
var eePrintDialog: HWND;a:string;
begin
eePrintDialog := GetParent((sender as Tprintdlg).Handle);
a:='haha';
SendMessage(eePrintDialog, CDM_SETCONTROLTEXT, idOk, Longint(PChar(a)));
a:='tata';
SendMessage(eePrintDialog, CDM_SETCONTROLTEXT, idCancel, Longint(PChar(a)));
a:='tutu';
SendMessage(eePrintDialog, CDM_SETCONTROLTEXT, LB_FILETYPES_ID, Longint(PChar(a)));
a:='pfui';
SendMessage(eePrintDialog, CDM_SETCONTROLTEXT, LB_FILENAME_ID, Longint(PChar(a)));
a:='tröt';
SendMessage(eePrintDialog, CDM_SETCONTROLTEXT, LB_DRIVES_ID, Longint(PChar(a)));
end;
Die Prozedur wird an onshow des Dialogs gehängt. Zumindest der OK und ESC Button müssten funktioieren. geht aber nicht.
hat jemand einen Tip für mich?
Grüsse
rainer