VPF::combobox keydown help - Форум программистов

muratboy31

Дата 9.2.2010, 16:26 (ссылка)

(нет голосов)

Загрузка ...

Бывалый

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

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

i want combobox to complite www. .com when press CTRL and ENTER keys like internet explorer but i couldnt manage it...

Код


procedure TForm1.IEAddress1KeyDown(Sender: TObject; var Key: Word; Shift: TShiftState);
begin
if key = vk_return then  begin
btnGoclick(self) end else
if (VK_CONTROL and VK_RETURN) then  begin
IEAddress1.Text:='www.' + IEAddress1.Text + '.com';
Webbrowser1.Go(IEAddress1.Text);
end;
end;

Mikel

Дата 9.2.2010, 16:30 (ссылка)

(нет голосов)

Загрузка ...

Опытный

Профиль
Группа: Участник Клуба
Сообщений: 882
Регистрация: 30.3.2002
Где: Саратов

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

Код


if key = vk_return
   then begin
          if ssCtrl in Shift
             then begin
                    IEAddress1.Text:='www.' + IEAddress1.Text + '.com';
                    Webbrowser1.Go(IEAddress1.Text);
                  end
             else btnGoclick(self)
        end

--------------------

...so remember, it's better to burn out than to fade away

muratboy31

Дата 9.2.2010, 16:45 (ссылка)

(нет голосов)

Загрузка ...

Бывалый

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

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

thanks for your help
but i have another question;
what if i want to use also www. .net CTRL and N button combination ?

Код


procedure TForm1.IEAddress1KeyDown(Sender: TObject; var Key: Word;
  Shift: TShiftState);
begin
  if (ssctrl in shift) and (key=vk_return) then
begin
IEAddress1.Text:='www.' + IEAddress1.Text + '.com';
                    GetActiveEWB.Go(IEAddress1.Text);
end else
if  (ssctrl in shift) and (key=4E) then
begin
IEAddress1.Text:='www.' + IEAddress1.Text + '.net';
                    GetActiveEWB.Go(IEAddress1.Text);
end;

Это сообщение отредактировал(а) muratboy31 - 9.2.2010, 17:14

Mikel

Дата 9.2.2010, 17:20 (ссылка)

(нет голосов)

Загрузка ...

Опытный

Профиль
Группа: Участник Клуба
Сообщений: 882
Регистрация: 30.3.2002
Где: Саратов

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

I prefer this variant smile

Код


procedure TForm1.IEAddress1KeyDown(Sender: TObject; var Key: Word;
  Shift: TShiftState);
begin
if ssctrl in shift
 then case key of
  vk_return:
begin
IEAddress1.Text:='www.' + IEAddress1.Text + '.com';
                    GetActiveEWB.Go(IEAddress1.Text);
end;
4E:
begin
IEAddress1.Text:='www.' + IEAddress1.Text + '.net';
                    GetActiveEWB.Go(IEAddress1.Text);
end;
end;
end;

--------------------

...so remember, it's better to burn out than to fade away

muratboy31

Дата 9.2.2010, 17:45 (ссылка)

(нет голосов)

Загрузка ...

Бывалый

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

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

i got error saying ;

Цитата

Syntax error in real number

Mikel

Дата 9.2.2010, 18:01 (ссылка)

(нет голосов)

Загрузка ...

Опытный

Профиль
Группа: Участник Клуба
Сообщений: 882
Регистрация: 30.3.2002
Где: Саратов

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

"4e" -> "$4e"

--------------------

...so remember, it's better to burn out than to fade away

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