کاربر برنامه EXE من را اجرا کرد (Run Time) بتواند ِDBGrid را وسط چین یا راست چین کند

[ali_abbasi22145]

سلام
من می خواهم کاربر برنامه EXE من را اجرا کرد (Run Time) بتواند ِDBGrid را وسط چین یا راست چین کند
هرچه جستجو کردم کدی پیدا نکردم.

[meytib]

این مثالو ببین
http://uplod.ir/11ywwv9hq881/p.zip.htm

[ali_abbasi22145]

سلام
این راه حل هم ساده که خودم دارم کار می کنم:

procedure TMainForm.DBGridCcolumnsAlignmenToRight1Click(Send er: TObject);
var i, j: Integer;
begin
with DBGrid1.DataSource.DataSet do
for i := 0 to DBGrid1.FieldCount - 1 do
for j := 0 to FieldCount - 1 do
if Fields[j].FieldName = DBGrid1.Fields[i].FieldName then
begin
DBGrid1.Columns[i].Alignment := taLeftJustify;
DBGrid1.Columns[i].Title.Alignment := taLeftJustify;
end;
end;