هم عرضی ستونهای متناظر در دو گرید

[rezamahdizadeh]

در روی فرمی دو DBGrid داریم اگر کاربر عرض یک Column یکی از گریدها را تغییر بدهد برای اینکه عرض Column متناظر در گرید دیگر به همان صورت تغییر کند چه کار باید کرد؟

[alinikaein]

سلام دوست عزيز؛

مي‌تونيد از كد زير استفاده كنيد:

procedure TForm1.DBGrid1MouseUp(Sender: TObject; Button: TMouseButton;
Shift: TShiftState; X, Y: Integer);
var
Counter: Integer;
begin
for Counter := 0 to DBGrid1.Columns.Count - 1 do
DBGrid2.Columns[Counter].Width := DBGrid1.Columns[Counter].Width;
end;


يا علي... موفق باشيد...

[rezamahdizadeh]

ضمن تشکر اگر بخواهم فقط آن ستون که عرضش توسط کاربر تغییر کرده است نه تمام ستونها را پیدا کرده و فقط عرض ستونهای متناظر با آن ستون در گریدهای دیگر را مقداردهی کنم چه کار کنم؟ نکته کلیدی در این است که باید بدانیم کدام ستون عرضش تغییر کرده است. اگر کاربر فقط روی قسمت Header گرید کلیک کند SelectedField و SelectedIndex مقادیر درست ندارند.