Свойства функциональных клавиш...

← →
Shadowofman (2003-05-18 13:25) [0]

Клавиши "стрелки", например, используются для перемещения объекта по форме.
Почему, когда на форму добавляешь какой-нибудь компонент, например, TЕdit или TButton, "стрелки" переключаются на эти компоненты и перемещение ими объекта уже невозможно?

← →
Palladin (2003-05-18 13:37) [1]

1 функциональные клавиши это вообщето не стрелки...
2 пральна, на форме они служат для перехода по компанентам
3 у тебя мышки нет?

← →
Zacho (2003-05-18 13:40) [2]

> Shadowofman © (18.05.03 13:25)

Как именно используются ? Лучше привести код.
А, вообще, я подозреваю, что KeyPreview:=true; решит проблему.

← →
Shadowofman (2003-05-18 14:18) [3]

Используются они так:
есть объект класса TImage и с помощью стрелок можно его перемещать по полю формы.
Вот, например, код для "левой стрелки":
procedure TForm1.KeyDown(Sender: TObject; var Key: Word;
Shift: TShiftState);
label 1;
begin
if Key = VK_LEFT then
begin
if Image1.Left = 50 then
begin
Label1.Font.Color:=clRed;
Label1.Caption := "Максимальный левый предел!";
goto 1;
end
else
begin
Label1.Font.Color:=clBlack;
Label1.Caption := "Налево";
Image1.Left:=Image1.Left-1;
Label5.Caption := IntToStr(Image1.Left);
end;
end;
...

← →
Zacho (2003-05-18 14:52) [4]

Свойства функциональных клавиш... Найти похожие ветки