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

Поиск:

Ответ в темуСоздание новой темы Создание опроса
> При нажатии клавиши передавать символ в два окна 
:(
    Опции темы
Delphist
  Дата 14.3.2006, 14:15 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Delphist Эксперт
****


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

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



Есть ListBox.Parent := Memo1 и ListBox.Visible = false . При нажатии символа "<" ListBox.Visible := true, после чего появляется ListBox со значениями. При нажатии клавиши из списка ListBox'a автоматически выбирается то значение, которое начинается с буквы которую мы нажали. Мне необходимо сделать чтобы это буква отображалась и в родителе ListBox'a т.е. в Memo1. Как это сделать?

Присоединённый файл ( Кол-во скачиваний: 16 )
Присоединённый файл  2.JPG 26,22 Kb


--------------------
ProcessInfo 1-ая моя программа (аналог spyxx.exe с гораздо большим функц-ом - внедрение dll в адр. простр. процесса, перехват API-функций, разбор приложения на окна мн.др).
Когда-то давным-давно использовал это...
PM MAIL ICQ   Вверх
Romikgy
Дата 14.3.2006, 14:25 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Любитель-программер
****


Профиль
Группа: Участник Клуба
Сообщений: 7326
Регистрация: 11.5.2005
Где: Porto Franco Odes sa

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



WM_CHAR


--------------------
Владение русской орфографией это как владение кунг-фу — истинные мастера не применяют его без надобности. 
smile

PM   Вверх
Guedda
Дата 14.3.2006, 14:26 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Подрывник
****


Профиль
Группа: Завсегдатай
Сообщений: 3137
Регистрация: 27.12.2005
Где: Ростов-на-Дону

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



Смотря как ты это делаешь. Простейший вариант в Memo1.OnKeyPress прописать следующее:
Код

Form2.S := Key; //Где Form2.S : Char, который в глобальных переменных... будет.



--------------------
Ll 2
PM MAIL WWW ICQ Skype GTalk   Вверх
Delphist
  Дата 14.3.2006, 15:54 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Delphist Эксперт
****


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

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



Цитата(Guedda @ 14.3.2006, 14:26)
Смотря как ты это делаешь. Простейший вариант в Memo1.OnKeyPress прописать следующее:
Код

Form2.S := Key; //Где Form2.S : Char, который в глобальных переменных... будет.

Что-то твоя методика не совсем работает.


--------------------
ProcessInfo 1-ая моя программа (аналог spyxx.exe с гораздо большим функц-ом - внедрение dll в адр. простр. процесса, перехват API-функций, разбор приложения на окна мн.др).
Когда-то давным-давно использовал это...
PM MAIL ICQ   Вверх
Guedda
Дата 14.3.2006, 17:34 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Подрывник
****


Профиль
Группа: Завсегдатай
Сообщений: 3137
Регистрация: 27.12.2005
Где: Ростов-на-Дону

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



Только что понял вопрос.
Наверное, необходимо все слова хранить в TStringList, и сделать такую процедурку:
Код

//SL - это список всех слов
procedure LoadForMask(Mask : string; SL : TStringList);
var
  i : Integer;
begin
  for i := 0 to SL.Count - 1 do
    if pos(Mask, SL[i]) > 0 then ListBox1.Items.Add(SL[i]);
end;


Это сообщение отредактировал(а) Guedda - 14.3.2006, 17:35


--------------------
Ll 2
PM MAIL WWW ICQ Skype GTalk   Вверх
Delphist
  Дата 14.3.2006, 18:23 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Delphist Эксперт
****


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

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



Цитата(Guedda @ 14.3.2006, 17:34)
Код

//SL - это список всех слов
procedure LoadForMask(Mask : string; SL : TStringList);
var
  i : Integer;
begin
  for i := 0 to SL.Count - 1 do
    if pos(Mask, SL[i]) > 0 then ListBox1.Items.Add(SL[i]);
end;

Не совсем то что нужно, объясню ещё раз:
Я хочу в своём редакторе сделать окно подобное окну свойств у Delphi (ну то окно которое выскакивет при нажатии точки у объекта). Проблема в следующем, когда в моём редакторе появляется окно ListBox'a со списком слов (а появляется оно не при нажатии точки, а при нажатии "<" (ну так я захотел)) то при выборе нужного слова скажем на букву "S" мы нажимаем клавишу "S" и у нас в ListBox'е остаются только слова начинающиеся с буквы "S". Всю эту фишку ListBox делает сам тут все без проблем. Проблема же вот в чем: при нажатии клавиши "S" буква "S" не попадает в родителя ListBox'a(memo) и следовательно она не печается в memo, в самом же редакторе Delphi эта ситуация отлично работает. Вот и мне нужно чтобы ко всем фишкам ListBox'a нажатая буква не просто повисала на ListBox'е, а печаталась бы в memo.



--------------------
ProcessInfo 1-ая моя программа (аналог spyxx.exe с гораздо большим функц-ом - внедрение dll в адр. простр. процесса, перехват API-функций, разбор приложения на окна мн.др).
Когда-то давным-давно использовал это...
PM MAIL ICQ   Вверх
Quadr0
Дата 14.3.2006, 23:20 (ссылка)    |    (голосов: 0) Загрузка ... Загрузка ... Быстрая цитата Цитата


Unregistered











...

Это сообщение отредактировал(а) Quadr0 - 15.7.2011, 10:48
  Вверх
  
Ответ в темуСоздание новой темы Создание опроса
Правила форума "Delphi: Общие вопросы"
SnowyMetalFan
bemsPoseidon
Rrader

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

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

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

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


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

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


 




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


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

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