Модераторы: Snowy, MetalFan, bems, Poseidon
  

Поиск:

Ответ в темуСоздание новой темы Создание опроса
> DBGrid1CellClick перевести на Buttin click, DBGrid1CellCli перевести на Buttin click 
:(
    Опции темы
mr_tg
Дата 8.8.2011, 16:57 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Шустрый
*


Профиль
Группа: Участник
Сообщений: 79
Регистрация: 29.3.2008

Репутация: нет
Всего: нет



DELHI7; DBGrid1CellClick
Заране спасибо за то что, уделили время!

Здраствуйте!
 у мена есть код котокый выполняетса при нажатии на ячейку DBGRID мишкой (код находитса DBGrid1CellClick) .

хочу чтобы нажатии кнопки (SpeedButton4Click ) 
выполнялось этот код чтобы передавалось на DBGrid1CellClick что нажата такаята ячейка и выполнялось код который зарабатывает при нажатии на ячейку.

Был бы рад к примерчику.
 (надоела терять время на щёлкание мышкой, хочу перевети кнопку на ГОРЯЧУЮ КЛАВИШУ и отуда не переключатся на мышку smile  )



Это сообщение отредактировал(а) mr_tg - 8.8.2011, 17:00
PM MAIL   Вверх
Frees
Дата 8.8.2011, 18:14 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Эксперт
****


Профиль
Группа: Завсегдатай
Сообщений: 2233
Регистрация: 2.12.2005
Где: Екатеринбург

Репутация: 16
Всего: 54



Цитата(mr_tg @  8.8.2011,  19:57 Найти цитируемый пост)
у мена есть код котокый выполняетса при нажатии на ячейку DBGRID мишкой (код находитса DBGrid1CellClick) .

А что за код, покажи..

Правильнее код из DBGrid1CellClick вынести в функцию(метод) и вызывать его и в DBGrid1CellClick и в SpeedButton4Click, единственное - надо понять какие параметры передавать в эту функцию.


--------------------
Кольцов Виктор Владимирович
PM MAIL ICQ   Вверх
mr_tg
Дата 9.8.2011, 13:03 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Шустрый
*


Профиль
Группа: Участник
Сообщений: 79
Регистрация: 29.3.2008

Репутация: нет
Всего: нет



SPS za vnimaniye Frees

ya ne hochu chtobi pri najatii SpeedButton zapuskalas funksiya hranyashiysya v  DBGrid1CellClick. ya hochu chto bi pri najatii na SpeedButton (click) Dbgrid podumal chto mishkoy  najata  3 pole- 4 stroka i  zapuskal DBGrid1CellClick .
можно визулный примерчик того что я прошу  smile 

zarane SPS
za vnimaniye!

Это сообщение отредактировал(а) mr_tg - 9.8.2011, 14:50
PM MAIL   Вверх
mr_tg
Дата 15.8.2011, 17:28 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Шустрый
*


Профиль
Группа: Участник
Сообщений: 79
Регистрация: 29.3.2008

Репутация: нет
Всего: нет



Frees

хотелось повторит что я хочу ...
после выполнения SQL запроса, DBGrid1 которая связана с ADOQuery1 отражает информацию (строки заране не известны).
я создал функцию:
Код

//-----------
procedure TForm1.DBGCick;
begin
  //  ShowMessage(Column.Field.CurValue);
  Edit2.SetFocus;
  Label6.Caption:=DBGrid1.Fields[1].AsString;
  Label7.Caption:=DBGrid1.Fields[4].AsString;
   if  RadioButton5.Checked then Edit1.Text:=DBGrid1.Fields[1].AsString;
   if  RadioButton6.Checked then Edit1.Text:=DBGrid1.SelectedField.AsString;
  Label11.Caption:=DBGrid1.Fields[6].AsString;
  Label12.Caption:=DBGrid1.Fields[5].AsString;
  ShowMessage('date= '+DBGrid1.Fields[4].AsString+'Name= '+DBGrid1.Fields[5].AsString);
  end;
//-----------


и добавил SpeedButton4Click
 вродебы работает но каждый разитог берётся произвольно. не принимает те данные которые отражаютса. берёт из таблицы но, ниже или выше незнаю почему и по какой логике smile
PM MAIL   Вверх
14SatanA88
Дата 15.8.2011, 19:06 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Опытный
**


Профиль
Группа: Участник
Сообщений: 393
Регистрация: 13.5.2010

Репутация: нет
Всего: 5



mr_tg, насколько я могу судить, у тебя процедура эта - клик по гриду. то есть на той записи где ты кликнул остановится курсор.
PM MAIL ICQ   Вверх
mr_tg
Дата 16.8.2011, 09:48 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Шустрый
*


Профиль
Группа: Участник
Сообщений: 79
Регистрация: 29.3.2008

Репутация: нет
Всего: нет



14SatanA88 , вы правилно понели DBGrid1CellClick.
как я писал в начале DBGrid1CellClick вот это 
Код

 //  ShowMessage(Column.Field.CurValue);
  Edit2.SetFocus;
  Label6.Caption:=DBGrid1.Fields[1].AsString;
  Label7.Caption:=DBGrid1.Fields[4].AsString;
   if  RadioButton5.Checked then Edit1.Text:=DBGrid1.Fields[1].AsString;
   if  RadioButton6.Checked then Edit1.Text:=DBGrid1.SelectedField.AsString;
  Label11.Caption:=DBGrid1.Fields[6].AsString;
  Label12.Caption:=DBGrid1.Fields[5].AsString;
  ShowMessage('date= '+DBGrid1.Fields[4].AsString+'Name= '+DBGrid1.Fields[5].AsString);

 все происходит нажатием мышки на ячейку.

 Frees  посоветовал перевести в отделную процедуру я перевёл, процедура запускаетса через кнопку... но как я чуть ране писал не даёт то что хочу :(

PM MAIL   Вверх
14SatanA88
Дата 16.8.2011, 13:12 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Опытный
**


Профиль
Группа: Участник
Сообщений: 393
Регистрация: 13.5.2010

Репутация: нет
Всего: 5



так вот, когда ты кликом по гриду запускаешь этот код, он выбирает данные оттуда, где стоит курсор грида.
то есть, грубо говоря, если ты ткнул посередине, он тебе данные подсунет из середины.

в общем, тебе необходимо обращаться именно к нужной тебе записи (ну то есть если брать в расчет твой код, то нужно кликать по той записи, откуда ты хочешь получить информацию)

что касается горячих клавиш, то могу посоветовать посадить на форму TActionList (вкладка Standart), завести новый экшн, присвоить ему горячую клавишу и уже на этот экшен повесить код (или вызвать процедуру, как советует уважаемый Frees)

PM MAIL ICQ   Вверх
Frees
Дата 16.8.2011, 14:58 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Эксперт
****


Профиль
Группа: Завсегдатай
Сообщений: 2233
Регистрация: 2.12.2005
Где: Екатеринбург

Репутация: 16
Всего: 54



Цитата(14SatanA88 @  16.8.2011,  16:12 Найти цитируемый пост)
что касается горячих клавиш, то могу посоветовать посадить на форму TActionList (вкладка Standart), завести новый экшн, присвоить ему горячую клавишу и уже на этот экшен повесить код (или вызвать процедуру, как советует уважаемый Frees)

TAction в любом случае предпочтительнее, а то еще вдруг потом понадобится контекстное меню к гриду приделать...


--------------------
Кольцов Виктор Владимирович
PM MAIL ICQ   Вверх
14SatanA88
Дата 16.8.2011, 15:41 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Опытный
**


Профиль
Группа: Участник
Сообщений: 393
Регистрация: 13.5.2010

Репутация: нет
Всего: 5



Цитата(Frees @  16.8.2011,  14:58 Найти цитируемый пост)
TAction в любом случае предпочтительнее

должен согласиться
PM MAIL ICQ   Вверх
  
Ответ в темуСоздание новой темы Создание опроса
Правила форума "Delphi: Для новичков"
SnowyMetalFan
bemsPoseidon
Rrader

Запрещается!

1. Публиковать ссылки на вскрытые компоненты

2. Обсуждать взлом компонентов и делиться вскрытыми компонентами

  • Литературу по Дельфи обсуждаем здесь
  • Действия модераторов можно обсудить здесь
  • С просьбами о написании курсовой, реферата и т.п. обращаться сюда
  • Вопросы по реализации алгоритмов рассматриваются здесь
  • 90% ответов на свои вопросы можно найти в DRKB (Delphi Russian Knowledge Base) - крупнейшем в рунете сборнике материалов по Дельфи


Если Вам понравилась атмосфера форума, заходите к нам чаще! С уважением, Snowy, MetalFan, bems, Poseidon, Rrader.

 
0 Пользователей читают эту тему (0 Гостей и 0 Скрытых Пользователей)
0 Пользователей:
« Предыдущая тема | Delphi: Для новичков | Следующая тема »


 




[ Время генерации скрипта: 0.1012 ]   [ Использовано запросов: 22 ]   [ GZIP включён ]


Реклама на сайте     Информационное спонсорство

 
По вопросам размещения рекламы пишите на vladimir(sobaka)vingrad.ru
Отказ от ответственности     Powered by Invision Power Board(R) 1.3 © 2003  IPS, Inc.