تغییر Caption در openDialog و saveDialog

[M.Hashemi]

با سلام
می خواستم بدونم چگونه میتونم Caption های Button ها و Label های Open Dialog و Save Dialog را تغییر داد.
هرچی تو سورس VCL.Dialogs گشتم چیزی پیدا نکردم.نه Const ی دارد و نه چیز دیگری.
اگر ممکنه در این مورد کمکم کنید.
با تشکر

[سعید صابری]

procedure TForm1.OpenDialog1Show(Sender: TObject);
begin
SetDlgItemText(GetParent(OpenDialog1.Handle), IDOK, PChar('باز کردن'));
end;


OpenDialog1.Title:='ssssssssssssssssssssssssssss';

[M.Hashemi]

سلام
ممنون از جوابتون اقای سعید صابری.
فقط یک نکته میمونه.
چطوری میتونم caption مربوط به label های مانند "File Name" را تغییر دهم؟
چون این کد را برای button تو اینترنت پیدا کرده بودم اما زمانی می خواهم به جای IDOK از LB_FileName استفاده کنم، چنین ورودی را نمی پذیرد.
هرچی هم گشتم نتونستم چیزی در مورد تغییر Caption مربوط به Label را در OpenDialog و SaveDialog تغییر بدم.
اگر ممکنه در این مورد توضیح دهید.
مرسی

[سعید صابری]

SetDlgItemText(GetParent(OpenDialog1.Handle),1090, PChar(' نا' +
'م فایل'));


or 1089 or 91

[M.Hashemi]

با سلام
مرسی اقای صابری.
خیلی عالی بود.
با تشکر

[khoshblagh]

[QUOTE=سعید صابری;1503442]
procedure TForm1.OpenDialog1Show(Sender: TObject);
begin
SetDlgItemText(GetParent(OpenDialog1.Handle), IDOK, PChar('باز کردن'));
end;


با تشکر
این خطای undeclared identifier"open Dialog1Show میگیره ؟

[mohsen24000]

باید کد رو داخل ایونت Show از شی OpenDialog1 بنویسی... بعبارتی باید نسبت بدی!

[khoshblagh]

چگونه میتوان فونت کاپشنها و دکمه ها را تغییر داد؟