راست چین شدن Caption یک Button

[shaghayegh_6113]

سلام
چه طور می تونم Caption یک Button رو راست چین یا چپ چین کنم ؟؟؟

[m-khorsandi]

کد زیر برای راست‌چین کردن هست:


SetWindowLong(Button1.Handle, GWL_STYLE, GetWindowLong(Button1.Handle, GWL_STYLE) or BS_RIGHT);


این هم مقادیری که به جای پارامتر Bold شده یا به همراه پارامتر Bold شده می‌تونی استفاده کنی :


BS_LEFT
BS_RIGHT
BS_CENTER
BS_TOP
BS_BOTTOM
BS_VCENTER

[babak869]

محمد جان سلام
من از این کد برای وسط چین کردن حروف یه EditBox استفاده کردم اما جواب نداد.فقط برای دگمه قابل قبوله؟

[SYNDROME]

با سلام
از این استفاده کنید ببینید جواب می ده.


procedure SetWinControlBiDi(Control: TWinControl);
var
ExStyle: Longint;
begin
ExStyle := GetWindowLong(Control.Handle, GWL_EXSTYLE);
SetWindowLong(Control.Handle, GWL_EXSTYLE, ExStyle or WS_EX_RTLREADING or WS_EX_RIGHT or WS_EX_LAYOUTRTL or WS_EX_NOINHERITLAYOUT );
end;

[babak869]

با سلام
از این استفاده کنید ببینید جواب می ده.

سلام
نه متاسفانه این کد هم جواب نمیده .
البته این کد فقط برای تغییر BidiMode عنصر هست که راست چین بشه یا چپ چین . قبلا با وی بی این کار رو کردم اما با دلفی نه .
ممنونم

[m-khorsandi]

برای TEdit می‌تونی توسط رویداد OnPaint متن رو در جای مورد نظر نقاشی کنی.

[m-khorsandi]

create a TEdit with definable text alignment? (http://www.swissdelphicenter.com/en/showcode.php?id=714)

[ho.yasreby]

create a TEdit with definable text alignment? (http://www.swissdelphicenter.com/en/showcode.php?id=714)

چی می شد یه کمی توضیح می دادید من که موفق نشدم .

[vcldeveloper]

چی می شد یه کمی توضیح می دادید من که موفق نشدم .
بنده خدا چی رو توضیح بده؟ روی لینک مربوطه که کلیک کنید، یک سورس ساده دلفی می بینید با توضیحات به زبان انگلیسی و آلمانی. از این واضحتر می خواید؟!