| Форумы
ЧАТ |
Орешник |
|
| Форумы -» | Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG |
|
| ||
|
|
Новости |
Поиск |
FAQ |
Статьи |
Книги |
Новости VCL
| | Форумы ЧАТ |
Орешник |
|
| |||
| |||
| |||
« предыдущая ветвь | форум | следующая ветвь »
Resize колонок в DBGrid е [D6, D7]
Andriy Tysh © (2003-09-17 17:48:00)
Какое сообщение посылается Винде, когда я делаю Ресайз колонок(напр. в DBGrid"е)?
Может кто-то код кинет или даст идею.
И возможно ли переловить это?
Andriy Tysh (2003-09-18 10:32:00) [1]
> NAlexey © (18.09.03 09:54) [3]
Спасибо попробую.
Но я кажется частично решил проблему:
procedure TfrmMakePlan.FGridMouseUp(Sender: TObject; Button: TMouseButton;
Shift: TShiftState; X, Y: Integer);
var W, I, ColW, LeftC: Integer;
begin
inherited;
XM:=X;
//YM ловлю сообщением WM_LBUTTONDOWN (не верно ли написал)
//если нет- не страшно можно найти правильное
with TFriendGrid(FGrid) do //TFriendGrid=class(TCustomGrid)
begin
if [goFixedHorzLine, goHorzLine]*Options = [] then {есть ли линия-разделитель}
ColW := 0
else ColW := GridLineWidth; {её ширина}
LeftC:=Left; //левая видимая колонка
W:=0;
for I := LeftC to Pred(ColCount) do
begin
W:=W+ColWidths[I]+ColW;
//лежат ли мои координаты там, где возможно раздвижение колонок
if (W<=X+5)and(W>=X-5)and(YM>0)and(YM<RowHeights[0]) then ShowMessage("=");
end;
end;
end;
Кто найдет ошибку или модернизирует- большое спасибо!
NAlexey (2003-09-18 09:54:00) [2]
Переловить можно на MouseMove состояние Grid - gsColMoving.
Andriy Tysh (2003-09-17 19:26:00) [3]
Спасибо, я уже использовал эту статтю, но Вы же здесь сами даете
совет запретить возможность изменять ширину.
А как переловить?
Игорь Шевченко (2003-09-17 18:20:00) [4]
"Винде" ничего не посылается
http://delphi.vitpc.com/helloworld/nogrid.htm
| |
