Как обработать обработчик клавиши UP?

[casio23]

Добрый день подскажите как обработать событие нажатия клавиши Up?
На форме лежат компоненты ListBox1 и Label1, в ListBox1 - 5 записей, изначально Label1 свойство Transpared := True; когда я нажимаю на клавишу Down(этот обработчик я написал) то Label1.Transpared := False;
для клавиши UP должно быть
когда в ListBox1 переместился на 1ю(нужно 2 раза нажать вверх -1раз перейти вверх на 1строку, 2 раз перейти на Label1) строку то
Label1.Transpared := True;
в ListBox1 в 1й строке выделении должно быть снято

Подскажите пожалуйста как это сделать?

[evg_m]

когда в ListBox1 переместился на 1ю

if listbox.itemindex =0 then //нумерация строк в Listbox (и не только) начинается с нуля.

в ListBox1 в 1й строке выделении должно быть снято

ListBox1.ItemIndex:=-1;

[casio23]

Сообщение от evg_m

if listbox.itemindex =0 then //нумерация строк в Listbox (и не только) начинается с нуля.

ListBox1.ItemIndex:=-1;

if listbox.itemindex =0 then ........ перемещение работает,а вот только не работает снятие выделения ListBox1.ItemIndex:=-1;

[asmodey1]

procedure TForm1.ListBox1KeyUp(Sender: TObject; var Key: Word;
  Shift: TShiftState);
begin
if key=VK_UP then
if Listbox1.ItemIndex=0 then
Listbox1.ItemIndex:=-1;
end;

Не работает ???

[ArtGrek]

procedure TForm1.ListBox1KeyUp(Sender: TObject; var Key: Word;
  Shift: TShiftState);
begin
  if Key = VK_DOWN then Label1.Transparent := False;
  if (Key = VK_UP) and (ListBox1.ItemIndex = 0) then Label1.Transparent := True;
end;

end.

P.S. не забудь поставить цвет у лабел отличныи от формы, что б видеть еффект Transparent

[casio23]

Сообщение от asmodey1

procedure TForm1.ListBox1KeyUp(Sender: TObject; var Key: Word;
  Shift: TShiftState);
begin
if key=VK_UP then
if Listbox1.ItemIndex=0 then
Listbox1.ItemIndex:=-1;
end;

Не работает ???

выделение с Listbox1 с 1й строки снимается,а вот Label.Transpared := True не работает

[evg_m]

Цитата:
Сообщение от asmodey1 Посмотреть сообщение
Код:


procedure TForm1.ListBox1KeyUp(Sender: TObject; var Key: Word;
Shift: TShiftState);
begin
if key=VK_UP then
if Listbox1.ItemIndex=0 then
Listbox1.ItemIndex:=-1;
end;

Не работает ???
выделение с Listbox1 с 1й строки снимается,а вот Label.Transpared := True не работает

а где в приведенном коде это

Label.Transpared := True

чтобы оно работало.

[casio23]

Сообщение от casio23

выделение с Listbox1 с 1й строки снимается,а вот Label.Transpared := True не работает

сори работает все, вот только немножко не так как нужно
снятие выделения с Listbox1 происходит сразу же как только доходит к 1 строке, а нужно вот так - как только itemindex=0 сразу не снималось выделения,а после второго раза нажатия вверх снималось itemindex:=-1
возможно так сделать?

[Vervolf]

Label.Transpared := True

вообще то не так! надо Label.Transparent:=true;

[asmodey1]

Сообщение от casio23

снятие выделения с Listbox1 происходит сразу же как только доходит к 1 строке, а нужно вот так - как только itemindex=0 сразу не снималось выделения,а после второго раза нажатия вверх снималось itemindex:=-1
возможно так сделать?

Тоды ой

var firststring: boolean;
...
procedure TForm1.ListBox1Click(Sender: TObject);
begin
firststring:=False;
end;

procedure TForm1.ListBox1KeyUp(Sender: TObject; var Key: Word;
  Shift: TShiftState);
begin
if (key=VK_UP) then
if not firststring then
firststring:=True else
begin
Listbox1.ItemIndex:=-1;
Label1.Transparent:=True;
end;
end;