Размеры табтиц DBGrid
Привет.
Имеются две вертикально расположенные таблицы просмотра. Между ними при наведении курсора и нажатии на левую кновку мыши и дальнейшем её перемещении происходит увеличение одной таблицы засчёт уменьшения другой.
Как в своей проге это сделать? Объясните пжлст.
Имеются две вертикально расположенные таблицы просмотра. Между ними при наведении курсора и нажатии на левую кновку мыши и дальнейшем её перемещении происходит увеличение одной таблицы засчёт уменьшения другой.
Как в своей проге это сделать? Объясните пжлст.
Цитата:
Originally posted by Kadet
Привет.
Имеются две вертикально расположенные таблицы просмотра. Между ними при наведении курсора и нажатии на левую кновку мыши и дальнейшем её перемещении происходит увеличение одной таблицы засчёт уменьшения другой.
Как в своей проге это сделать? Объясните пжлст.
Привет.
Имеются две вертикально расположенные таблицы просмотра. Между ними при наведении курсора и нажатии на левую кновку мыши и дальнейшем её перемещении происходит увеличение одной таблицы засчёт уменьшения другой.
Как в своей проге это сделать? Объясните пжлст.
F1 TSplitter
Значит есть у тебя две DBGrid (DBGrid1 и DBGrid2). Между ними ставишь TSplitter прикрепленный к первой DBGrid. Затем у Splitter1 событие Moved пишешь:
DBGrid2->Left=Splitter1->Left+5;
DBGrid2->Width=Form1->Width-DBGrid2->Left;
Если эти гриды лежат не к самим краям формы, то положи их на панельку, и соответственно в коде, Form1 исправь на Panel1.
Кнопочка F9… и вуаля!
DBGrid2->Left=Splitter1->Left+5;
DBGrid2->Width=Form1->Width-DBGrid2->Left;
Если эти гриды лежат не к самим краям формы, то положи их на панельку, и соответственно в коде, Form1 исправь на Panel1.
Кнопочка F9… и вуаля!
Цитата:
Originally posted by hard
Значит есть у тебя две DBGrid (DBGrid1 и DBGrid2). Между ними ставишь TSplitter прикрепленный к первой DBGrid. Затем у Splitter1 событие Moved пишешь:
DBGrid2->Left=Splitter1->Left+5;
DBGrid2->Width=Form1->Width-DBGrid2->Left;
Если эти гриды лежат не к самим краям формы, то положи их на панельку, и соответственно в коде, Form1 исправь на Panel1.
Кнопочка F9… и вуаля!
Значит есть у тебя две DBGrid (DBGrid1 и DBGrid2). Между ними ставишь TSplitter прикрепленный к первой DBGrid. Затем у Splitter1 событие Moved пишешь:
DBGrid2->Left=Splitter1->Left+5;
DBGrid2->Width=Form1->Width-DBGrid2->Left;
Если эти гриды лежат не к самим краям формы, то положи их на панельку, и соответственно в коде, Form1 исправь на Panel1.
Кнопочка F9… и вуаля!
Спосибо. Всё заработало.
Цитата:
Originally posted by hard
Значит есть у тебя две DBGrid (DBGrid1 и DBGrid2). Между ними ставишь TSplitter прикрепленный к первой DBGrid. Затем у Splitter1 событие Moved пишешь:
DBGrid2->Left=Splitter1->Left+5;
DBGrid2->Width=Form1->Width-DBGrid2->Left;
Если эти гриды лежат не к самим краям формы, то положи их на панельку, и соответственно в коде, Form1 исправь на Panel1.
Кнопочка F9… и вуаля!
Значит есть у тебя две DBGrid (DBGrid1 и DBGrid2). Между ними ставишь TSplitter прикрепленный к первой DBGrid. Затем у Splitter1 событие Moved пишешь:
DBGrid2->Left=Splitter1->Left+5;
DBGrid2->Width=Form1->Width-DBGrid2->Left;
Если эти гриды лежат не к самим краям формы, то положи их на панельку, и соответственно в коде, Form1 исправь на Panel1.
Кнопочка F9… и вуаля!
Все гораздо проще.....
первый grid Align к левому краю, потом splitter тоже к левому, а второй грид Align = alClient
(Все тоже самое можно проделать на панельке.)
А вот теперь вуаля... и замемечу ни строчки кода :-)
Если программер не извращенец - он не программер! :}