|
|
Регистрация Восстановить пароль |
Повторная активизация e-mail |
Регистрация | Задать вопрос |
Заплачу за решение |
Новые сообщения |
Сообщения за день |
Расширенный поиск |
Правила |
Всё прочитано |
|
Опции темы | Поиск в этой теме |
05.03.2012, 12:29 | #1 |
Регистрация: 12.05.2011
Сообщений: 6
|
Куда пропал OnClick!?
Создаю динамически кнопки в Стрингриде:
SetLength(NewButton,Arow); NewButton[Arow-1] := TButton.Create(self); NewButton[Arow-1].Caption:='...'; NewButton[Arow-1].Parent := StringGrid1; StringGrid1.Objects[ACol,Arow] := NewButton[Arow-1]; Rect := StringGrid1.CellRect(ACol,Arow); NewButton[Arow-1].Width := 20; NewButton[Arow-1].Height := 18; NewButton[Arow-1].Left := Rect.Right-NewButton[Arow-1].Width; NewButton[Arow-1].Top := Rect.Top; NewButton[Arow-1].Tag:=-1; NewButton[Arow-1].OnClick:= butcheckingLstElement; При клике мышкой не происходит события(butcheckingLstElement), а при нажатии на клавишу Энтер происходит это событие. В чем фокус? Кто знает? |
05.03.2012, 14:24 | #2 |
Форумчанин
Регистрация: 08.09.2010
Сообщений: 880
|
Какое-то непонятное создание кнопок:
- в каком месте и в какой момент создается кнопка (в коде создается только одна кнопка)? - зачем держать две ссылки на кнопку? Одной не хватит? |
05.03.2012, 15:01 | #3 |
Старожил
Регистрация: 30.12.2009
Сообщений: 11,426
|
может надо в OnClick передавать не метод, а указатель на него?
|
05.03.2012, 15:52 | #4 | |
Регистрация: 12.05.2011
Сообщений: 6
|
Цитата:
она вызывается столько раз сколько строк в таблице(StringGrid) вот полностью: Код:
Я думаю это из-за стринггрида, ведь если выбрать парент = форма то все норм работает. |
|
06.03.2012, 10:07 | #5 |
personality
Старожил
Регистрация: 28.04.2009
Сообщений: 2,882
|
Добавить
Код:
Последний раз редактировалось phomm; 06.03.2012 в 10:09. |
06.03.2012, 13:26 | #6 |
Старожил
Регистрация: 09.01.2008
Сообщений: 26,229
|
проверил. действительно, если "родитель" кнопки stringgrid - то он не отдаёт кнопке нажатия.
подтверждение этому нашёл здесь а что, если назначить форму родителем?! примерно так: Код:
p.s. если грид не помещается на форме целиком (скролируется), то выглядеть это будет глюкаво, впрочем, с родителем гридом тоже не очень кузявно...) phomm, круто! Работает! Хотя, со скролированием стрингрида та же беда! Последний раз редактировалось Serge_Bliznykov; 06.03.2012 в 13:32. |
Похожие темы | ||||
Тема | Автор | Раздел | Ответов | Последнее сообщение |
Delphi XE2. Куда пропал TDataModule, и как его вернуть? И проблемы с стд. ресурсами среды. | Человек_Борща | Общие вопросы Delphi | 12 | 16.07.2012 14:50 |
Пропал Vector3 | RunLine | Общие вопросы .NET | 2 | 11.02.2012 19:37 |
Куда пойти, куда податься | Delрhi | Свободное общение | 4 | 06.02.2012 12:39 |
Куда отследить куда утекает память? | TwiX | Общие вопросы Delphi | 6 | 02.03.2010 03:10 |