راست چین کردن ControlBar

[mahdy.asia]

من ControlBar در نرم افزارم استفاده کردم می خواهم کلیدهایی را که روی آن می زارم از سمت راست نظام بگیرند (هنگام تغییر سایز فرم در منتهی راست باشند)

[BORHAN TEC]

از کدی مثل این استفاده کن:
const
WS_EX_NOINHERITLAYOUT = $00100000;
// Disable inheritence of mirroring by children
WS_EX_LAYOUTRTL = $00400000; // Right to left mirroring

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;

procedure TForm1.FormCreate(Sender: TObject);
var
I: Integer;
Control: TWinControl;
begin
// by Shaahin Ashayeri (^_^)
SetWinControlBiDi(ControlBar1);
ControlBar1.Invalidate;
for I := 0 to ControlBar1.ControlCount - 1 do
begin
if (Control is TWinControl) then
begin
SetWinControlBiDi(Control);
end;
end;
end;

[developing]

با سلام

اگه درست متوجه شده باشم شما می خواهید که اگه فرم به سمت راست کشیده شد کنترل های شما فاصلشون رو با سمت راست حفظ کنن.

اگه اینطور باشه شما باید خاصیت anchors بخش right رو true کنید

[mahdy.asia]

اگه درست متوجه شده باشم شما می خواهید که اگه فرم به سمت راست کشیده شد کنترل های شما فاصلشون رو با سمت راست حفظ کنن.

اگه اینطور باشه شما باید خاصیت anchors بخش right رو true کنید
در حقیقت درخواست من راست چین شدن کامپوننت است اما این روش هم که شما می گید اگه ابتدا با یک ترفند کلیدهای روی کنترل بار را به منتهی راست بیاورم که این کار را انجام دادم و خاصیت anchorsدرست کار کند که درست کار نکرد خواسته من پوشش داده می شود اما هنوز کد دوستمان Object Pascal (http://barnamenevis.org/member.php?75214-Object-Pascal)را چک نکردم

[mahdy.asia]

از کدی مثل این استفاده کن:
من با دلفی 7 کار میکنم کد شما تو این خط خطای invalid class typecast
رو میده
Control := (ControlBar1.Controls[I] as TWinControl);

[BORHAN TEC]

چه کامپوننتهایی را روی ControlBar قرار داده اید؟

[mahdy.asia]

چه کامپوننتهایی را روی ControlBar قرار داده اید؟
TSpeedButton

[BORHAN TEC]

کد مربوطه برای رفع این مشکل بروزرسانی شد.