Скачать: CL | DM;

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

← →
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]

> Shadowofman © (18.05.03 14:18)

Ну, а что насчет Form1.KeyPreview:=true ?
И зачем там goto 1 ?

---

Страницы: 1 вся ветка

Скачать: CL | DM;



Память: 0.45 MB
Время: 0.013 c