عوض کردن فونت پیش فرض در findDialog

[hamid_isf_1360]

سلام دوستان

آیا کسی می دونه که چطوری باید فونت پیش فرض TfindDialog را عوض کرد و به فونت tahoma
تغییر داد.
ممنون می شم اگه بهم پاسخ بدید.

[مصطفی ساتکی]

سلام یک کامپوننت FindDialog تو صفحه بزارین و این کدو تو رویداد onshow مربوط به این کامپوننت بنویسید.


var fnt : HWND;
begin
FNT:=CreateFont(-11,5,0,0,FW_NORMAL,0,0,0,ARABIC_CHARSET,OUT_CHARAC TER_PRECIS,CLIP_DEFAULT_PRECIS,
DEFAULT_QUALITY,DEFAULT_PITCH,'Tahoma');
SendMessage(getdlgitem(FindDialog1.Handle,1152),WM _SETFONT,FNT,1);
SendMessage(getdlgitem(FindDialog1.Handle,1057),WM _SETFONT,FNT,1);
SendMessage(getdlgitem(FindDialog1.Handle,1),WM_SE TFONT,FNT,1);
SendMessage(getdlgitem(FindDialog1.Handle,1038),WM _SETFONT,FNT,1);
SendMessage(getdlgitem(FindDialog1.Handle,1056),WM _SETFONT,FNT,1);
SendMessage(getdlgitem(FindDialog1.Handle,2),WM_SE TFONT,FNT,1);
SendMessage(getdlgitem(FindDialog1.Handle,1072),WM _SETFONT,FNT,1);
SendMessage(getdlgitem(FindDialog1.Handle,65535),W M_SETFONT,FNT,1);
SendMessage(getdlgitem(FindDialog1.Handle,1041),WM _SETFONT,FNT,1);
SendMessage(getdlgitem(FindDialog1.Handle,1040),WM _SETFONT,FNT,1);
end;