[Арни]

Вопрос к профессионалом или тем кто сталкивался с такой проблемой: долго пытался прикрутить кнопку к ячейке стандартного DBGrid-а, но все без толку. После этого установил библиотеку компонентов EhLib. C DbGridEh
вроде все получилась, кнопку присвоил нужной ячейке но при клики на эту кнопку, кнопка самопроизвольно нажимается повторно. Если это Bug, то как его обойти?

[NumLock]

с DbGridEh не сталкивался, а в DBGrid кнопка (как и любой другой контрол) прикручивается без проблем. в интернете уже очень много лет полно примеров.

добавлено позже

oops, на раздел не обратил внимания

[Арни]

Понятно, тема заезженная. Но действенного примера в нете я так и не нашел, кроме как этого http://www.skzimmelman.com/Articles/buttongrid.htm.
Мой код один в один, только с нажатием кнопки trouble

Код:

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 34 35 36 37

procedure TForm1.DBGridEh1DrawColumnCell(Sender: TObject; const Rect: TRect;   DataCol: Integer; Column: TColumnEh; State: TGridDrawState); var ARect: TRect; begin    //Распологаем кнопку в столбце DbGridEh1 с индексом;   If (Column.Index = 2) Then   begin     //Координаты ячейки DbGridEh1;     ARect := DBGridEh1.CellRect(Column.Index,DBGridEh1.Row);      // Присваиваем кнопку DBGridEh1;    If BitBtn1.Parent <> DBGridEh1 Then       BitBtn1.Parent := DBGridEh1 ;      //Устанавливаем позицию равной поцизии ячейки слева;    if (BitBtn1.Left <>ARect.Left) then        BitBtn1.Left:=ARect.Left;      //Устанавливаем позицию равной поцизии ячейки сверху;    If (BitBtn1.Top <> ARect.Top) Then       BitBtn1.Top := ARect.Top ;      // Приравниваем ширину кнопки к ширине ячейки;    If BitBtn1.Width<> (ARect.Right - ARect.Left) then       BitBtn1.Width:= (ARect.Right - ARect.Left) ;      // Приравниваем высоту кнопки к высоте ячейки;    If (BitBtn1.Height <> (ARect.Bottom-ARect.Top)) Then       BitBtn1.Height := (ARect.Bottom-ARect.Top);    end; end;   //Вызов сообщения; procedure TForm1.BitBtn1Click(Sender: TObject); begin   ShowMessage('Запись удалена'); end;

Админ: Пользуемся тегами для оформления кода!

[NumLock]

на самом деле с кнопкой все гораздо проще:

Код:

1 2 3 4 5 6 7 8 9 10 11

procedure TForm1.FormCreate(Sender: TObject); begin   DBGrid1.Columns[0].ButtonStyle:=cbsEllipsis;   DBGrid1.Columns[1].ButtonStyle:=cbsEllipsis;   DBGrid1.OnEditButtonClick:=DBGrid1EditButtonClick; end;   procedure TForm1.DBGrid1EditButtonClick(Sender: TObject); begin   ShowMessage(DBGrid1.SelectedField.FieldName); end;

а вот с другим контролом нужно чуть побольше кода написать

[Арни]

NumLock спасибо за подсказку куда нужно было капать. Разобрался. Все отлично работает. В DBGridEh (EhLib) намного шире возможности чем в стандартном DBGrid. Cоветую пользоваться этой библиотекой.

[NumLock]

Сообщение от Арни

В DBGridEh (EhLib) намного шире возможности чем в стандартном DBGrid. Cоветую пользоваться этой библиотекой.

ты не представляешь на сколько они шире в DevExpress

[Страдалецъ]

О да DevExpress с их cxGrid конечно великолепен. Но сразу приготовьтесь к выносу мозга при изучении примеров и демок возможностей компонентов.
Разработчики девок явно курят что-то мощное, но надо сказать результат впечатляющий от этого

[lmikle]

Num, поддерживаю
DevExpress - это что-то
Только вот где его взять для крайних версий - ХЗ. У меня есть версия, которая поддерживает XE3, для более поздних нету (хотя, честно сказать, не сильно и искал, только RuTracker проверял, там нету, бо как есть еще XE7, но я на ней только с ведроидом игрался, а там дефки не пляшут).