Форум: "WinAPI";
Текущий архив: 2003.11.13;
Скачать: [xml.tar.bz2];
ВнизResize колонок в DBGrid е Найти похожие ветки
← →
Andriy Tysh (2003-09-17 17:48) [0]Какое сообщение посылается Винде, когда я делаю Ресайз колонок(напр. в DBGrid"е)?
Может кто-то код кинет или даст идею.
И возможно ли переловить это?
← →
Игорь Шевченко (2003-09-17 18:20) [1]"Винде" ничего не посылается
http://delphi.vitpc.com/helloworld/nogrid.htm
← →
Andriy Tysh (2003-09-17 19:26) [2]Спасибо, я уже использовал эту статтю, но Вы же здесь сами даете
совет запретить возможность изменять ширину.
А как переловить?
← →
NAlexey (2003-09-18 09:54) [3]Переловить можно на MouseMove состояние Grid - gsColMoving.
← →
Andriy Tysh (2003-09-18 10:32) [4]
> 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;
Кто найдет ошибку или модернизирует- большое спасибо!
Страницы: 1 вся ветка
Форум: "WinAPI";
Текущий архив: 2003.11.13;
Скачать: [xml.tar.bz2];
Память: 0.45 MB
Время: 0.031 c