ShiftState

← →
Ola (2002-09-03 08:58) [0]

Приветики мастера!!!
Из кода нужно вызвать процедуру KeyDown, проблема в том, что не понятно что передавать в параметр Shift, если должна быть нажата просто клавиша F6... заранее спасибо

← →
Внук © (2002-09-03 09:00) [1]

Передавайте []

← →
Ola (2002-09-03 09:01) [2]

пробывали не получаеться

← →
MBo © (2002-09-03 09:05) [3]

как пробовали? код...

← →
Ola (2002-09-03 09:06) [4]

вот так FormInf.dbgInfDealsKeyDown(Self,vk_F6,[]);

← →
Внук © (2002-09-03 09:07) [5]

Попробуйте еще раз :)
Скорее всего, дело не в третьем, а во втором параметре, который объявлен как var, то есть туда нужно передавать переменную, но никак не константу

← →
Внук © (2002-09-03 09:07) [6]

Точно, я угадал :)

← →
ЮЮ © (2002-09-03 09:08) [7]

А что подразумевается под "процедуру KeyDown"
Если обработчик, должно работать. Вот пример (вызова, а не работы :-) из работающего приложения:

procedure TForm1.Edit1KeyDown(Sender: TObject; var Key: Word;
Shift: TShiftState);
begin
//
end;
procedure TForm1.Edit2KeyDown(Sender: TObject; var Key: Word;
Shift: TShiftState);
begin
Edit1KeyDown(Edit1,Key,[]);
end;

← →
Внук © (2002-09-03 09:09) [8]

Черт подери, у меня цвет значка изменился, караул ...

← →
Ola (2002-09-03 09:17) [10]

спасибо все заработало!!!!

К психологу, но вообще поздравляю обоих

Меня тоже :-) У меня, как и у Анатолия значок по-прежнему тёмно синий, а у остальных поголубели :-)

ShiftState Найти похожие ветки