Top.Mail.Ru
Мастера DELPHI, Delphi programming community Титульная страница Поиск, карта сайта Написать письмо 
| Новости | Поиск | FAQ | Статьи | Книги | Новости VCL |
| Форумы ЧАТ | Орешник | KOL и MCK |
Форумы -» Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG

« предыдущая ветвь | форум | следующая ветвь »

Как к DBGrid, DBGridEh и пр. добавить кнопочку для каждой строчки [D5]


нАвичОк ©   (2003-10-20 12:57:00) 

Например, в видимом конце каждой строчки добавляется маленькая кнопочка типа (...), при нажатии на которую происходит некоторое действие ???

Заранее благодарен.


Vlad   (2003-10-20 13:26:00) [1]

>aVast © (20.10.03 13:21) [4]
Насколько я понял автору нужно отображать кнопку в конце видимой части строки в DBGrid. Если так, то только отрисовка поможет.


aVast   (2003-10-20 13:21:00) [2]

тогда попробуй через
OnDrawColumnCell

приблизетельно так:

procedure TForm1.DBGrid1DrawColumnCell(Sender: TObject; const Rect: TRect;
DataCol: Integer; Column: TColumn; State: TGridDrawState);
begin
if Column.Field.AsString="без кнопочки никак" then
begin
DBGrid1.Columns[DataCol].ButtonStyle:=cbsEllipsis;
DBGrid1.OnEditButtonClick:=BtnClick;
end;
DBGrid1.DefaultDrawColumnCell(Rect, DataCol, Column, State);
end;


Vlad   (2003-10-20 13:14:00) [3]

OnDrawColumnCell, а также почитай про метод DrawFrameControl.


нАвичОк   (2003-10-20 13:07:00) [4]

2Vlad
строчки, а не столбца


Vlad   (2003-10-20 13:06:00) [5]

DBGrid.Columns[i].ButtonStyle = cbsEllipsis;
При нажатии срабатывает событие OnEditButtonClick


Наверх

Титульная страница Поиск, карта сайта Написать письмо