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

Поиск:

Ответ в темуСоздание новой темы Создание опроса
> Проверить вхождение любой строки из списка в текст 
:(
    Опции темы
muratboy31
Дата 14.1.2010, 00:07 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Бывалый
*


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

Репутация: нет
Всего: нет
1 more question; it works perfect with combobox onclick but why it doesnt work with combobox key press !!!  i also tried it with combobox key down but i get error if i press any key !!!

Код

procedure TForm1.IEAddress1KeyPress(Sender: TObject; var Key: Char);
  var
  aranan:AnsiString;
  BlockedUsers: TStringList;
  i: Integer;
  ini1 : TINIFile;
  Block : integer;
begin
if Key = #13 then begin
  ini1 := TINIFile.Create( ExtractFilePath(Application.ExeName)+'Ayar.INI ');
  Block:= ini1.Readinteger('Blocker','Block',0);
  aranan:=IEAddress1.Text;
  Form1.Text:=aranan;
  BlockedUsers := TStringList.Create;
  try
    BlockedUsers.LoadFromFile('users.txt');
    for i := 0 to BlockedUsers.Count-1 do
    begin
      if (Pos(BlockedUsers[i],aranan)>0) and (Block=1) then
      begin
       ShowMessage('No View');
        DesignTimeWB.GoHome;
       IEAddress1.Text:='http://www.google.com';
        exit;
      end;
     end;
      DesignTimeWB.Go(IEAddress1.Text);
  finally
    BlockedUsers.Free;
  end;
  end;
DesignTimeWB.SetFocus
end;


Это сообщение отредактировал(а) muratboy31 - 14.1.2010, 00:10
PM MAIL   Вверх
Данкинг
Дата 14.1.2010, 00:15 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Yersinia pestis
****


Профиль
Группа: Завсегдатай
Сообщений: 8302
Регистрация: 7.11.2006
Где: მოსკოვი

Репутация: 11
Всего: 130
Цитата(muratboy31 @  14.1.2010,  00:07 Найти цитируемый пост)
but i get error

What error? smile 


--------------------
There's nothing left but silent epitaphs.
PM MAIL WWW   Вверх
muratboy31
Дата 14.1.2010, 00:21 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Бывалый
*


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

Репутация: нет
Всего: нет
well actually i cant even type when i use the on keypress or keydown ebents...when  i am trying to type anything to the combobox, it jumps to webpage body after 1 letter !!!

see the picture i tried to type www... but it jumped to the edit box in the web page and didnt let me write to combobox !!!
user posted image

Это сообщение отредактировал(а) muratboy31 - 14.1.2010, 00:34
PM MAIL   Вверх
Данкинг
Дата 14.1.2010, 00:31 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Yersinia pestis
****


Профиль
Группа: Завсегдатай
Сообщений: 8302
Регистрация: 7.11.2006
Где: მოსკოვი

Репутация: 11
Всего: 130
 smile Here's an example of how KeyPress may be used:
Код

procedure TForm1.KeyPress(Sender: TObject; var Key: Char);
begin
 if key<>#13 then exit else showmessage('Hello');
end;

"showmessage" will arise only when you press <enter> in the ComboBox. smile 


--------------------
There's nothing left but silent epitaphs.
PM MAIL WWW   Вверх
muratboy31
Дата 14.1.2010, 00:42 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Бывалый
*


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

Репутация: нет
Всего: нет
but also other keys load the page, not only enter key !!!

Код

procedure TForm1.IEAddress1KeyPress(Sender: TObject; var Key: Char);
  var
  aranan:AnsiString;
  BlockedUsers: TStringList;
  i: Integer;
  ini1 : TINIFile;
  Block : integer;
begin
if key <> #13 then
  ini1 := TINIFile.Create( ExtractFilePath(Application.ExeName)+'Ayar.INI ');
  Block:= ini1.Readinteger('Blocker','Block',0);
  aranan:=IEAddress1.Text;
  Form1.Text:=aranan;
  BlockedUsers := TStringList.Create;
  try
    BlockedUsers.LoadFromFile('users.txt');
    for i := 0 to BlockedUsers.Count-1 do
    begin
      if (Pos(BlockedUsers[i],aranan)>0) and (Block=1) then
      begin
       ShowMessage('No View');
        DesignTimeWB.GoHome;
       IEAddress1.Text:='http://www.google.com';
        exit;
      end;
     end;
      DesignTimeWB.Go(IEAddress1.Text);
  finally
    BlockedUsers.Free;
  end;

DesignTimeWB.SetFocus

end;
PM MAIL   Вверх
Демо
Дата 14.1.2010, 01:02 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Эксперт
***


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

Репутация: 7
Всего: 50
Цитата(muratboy31 @  14.1.2010,  00:42 Найти цитируемый пост)
if key <> #13 then


if key <> #13 then
begin
...
end;


--------------------
    
PM MAIL ICQ Skype   Вверх
muratboy31
Дата 14.1.2010, 01:04 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Бывалый
*


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

Репутация: нет
Всего: нет
no i also tried it but it is the same... any key loads the page !!!

Код

procedure TForm1.IEAddress1KeyPress(Sender: TObject; var Key: Char);
  var
  aranan:AnsiString;
  BlockedUsers: TStringList;
  i: Integer;
  ini1 : TINIFile;
  Block : integer;
begin
if key <> #13 then  begin
  ini1 := TINIFile.Create( ExtractFilePath(Application.ExeName)+'Ayar.INI ');
  Block:= ini1.Readinteger('Blocker','Block',0);
  aranan:=IEAddress1.Text;
  Form1.Text:=aranan;
  BlockedUsers := TStringList.Create;
  try
    BlockedUsers.LoadFromFile('users.txt');
    for i := 0 to BlockedUsers.Count-1 do
    begin
      if (Pos(BlockedUsers[i],aranan)>0) and (Block=1) then
      begin
       ShowMessage('No View');
        DesignTimeWB.GoHome;
       IEAddress1.Text:='http://www.google.com';
        exit;
      end;
     end;
      DesignTimeWB.Go(IEAddress1.Text);
      DesignTimeWB.SetFocus
  finally
    BlockedUsers.Free;
  end;

 end;
end;


Это сообщение отредактировал(а) muratboy31 - 14.1.2010, 01:06
PM MAIL   Вверх
Демо
Дата 14.1.2010, 01:15 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Эксперт
***


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

Репутация: 7
Всего: 50
may be 
Код

f key=#13 then  begin


Это сообщение отредактировал(а) Демо - 14.1.2010, 01:16


--------------------
    
PM MAIL ICQ Skype   Вверх
muratboy31
Дата 14.1.2010, 01:18 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Бывалый
*


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

Репутация: нет
Всего: нет
yes i also tried it and if there is a link starting with 
Код

http://
 in combobox then it loads page as soon as i press 'w' !!!

Это сообщение отредактировал(а) muratboy31 - 14.1.2010, 01:19
PM MAIL   Вверх
muratboy31
Дата 14.1.2010, 10:17 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Бывалый
*


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

Репутация: нет
Всего: нет
i found the problem !!!
it is bug with combobox i am using... it was not combobox coming with delphi... smile 

thanks for all who helped me with it  smile 
PM MAIL   Вверх
Страницы: (3) Все 1 2 [3] 
 Ответ в темуСоздание новой темы Создание опроса
Правила форума "Delphi: Для новичков"
SnowyMetalFan
bemsPoseidon
Rrader

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

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

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

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

Если Вам понравилась атмосфера форума, заходите к нам чаще! С уважением, Snowy, MetalFan, bems, Poseidon, Rrader.
 
1 Пользователей читают эту тему (1 Гостей и 0 Скрытых Пользователей)
0 Пользователей:
« Предыдущая тема | Delphi: Для новичков | Следующая тема »

Подписаться на тему | Подписка на этот форум | Скачать/Распечатать тему


 




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


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

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