Форум: "Основная";
Текущий архив: 2003.05.29;
Скачать: [xml.tar.bz2];
ВнизСвойства функциональных клавиш... Найти похожие ветки
← →
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 вся ветка
Форум: "Основная";
Текущий архив: 2003.05.29;
Скачать: [xml.tar.bz2];
Память: 0.45 MB
Время: 0.008 c