Texte ändern in Tprintdialog

[R2009]

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