![]() |
| ||
|
|
Новости |
Поиск |
FAQ |
Статьи |
Книги |
Новости VCL
| | Форумы ЧАТ |
Орешник |
|
| |||
| |||
« предыдущая ветвь | форум | следующая ветвь »
Как к 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