مشکل با زبان فارسی در input box

[saleh_fartash]

سلام
دوستان خودتون می دونید که اگر کلمه ای فارسی در دلفی بنویسیم که حرف "ک" یا "پ" یا .. داشته با شه اون رو به صورت "..." نشون می ده که این مشکل با تغییر فونت اون لیبل یا باتون درست میشه (مثلا فونت tahoma) ولی من دارم از input box استفاده می کنم و نمیدونم چجوری فونت رو درون اون تغییر بدم

[Cave_Man]

باید برید توی Unit با نام dialogs بعد تابعی هست به اسم InputQuery اون رو پیدا کنید :


function InputQuery(const ACaption, APrompt: string;
var Value: string): Boolean;
var
Form: TForm;
Prompt: TLabel;
Edit: TEdit;
DialogUnits: TPoint;
ButtonTop, ButtonWidth, ButtonHeight: Integer;
begin
Result := False;
Form := TForm.Create(Application);
with Form do
try
Canvas.Font := Font;

پیاده سازی تابع به شکل بالا هست اون خط آخر رو باید تغییر بدید تا به فونت مورد نظر شما تغییر پیدا کنه


Canvas.Font.Name:='tahoma'

میتونید این رو بجای اون خط قرار بدید