procedure TForm1.ListBox1KeyPress(Sender: TObject; var Key: Char);
begin
if key=x then //где х - код клавиши Tab
begin
ListBox2.SetFocus;
ListBox1.ItemIndex := -1;
end
end;
procedure TForm1.ListBox2KeyPress(Sender: TObject; var Key: Char);
begin
if key=x then //где х - код клавиши Tab
begin
ListBox1.SetFocus;
ListBox2.ItemIndex := -1;
end;
end;
Проблема с фокусами и ListBox'ами
У меня есть два ListBox'а, как мне сделать что бы при переходе фокуса с одного на другой, то что выбрано в другом снималось (то есть что бы в первом не было выбраных елементов)? И еще как сдалть что бы можно было менять фокус между этими ListBox'ами клавишей Tab, то есть что бы при нажатии на Таб если фокус на листоксе 1 фокус переходил на листбокс 2, и наоборот. Заранее спасибо.
WinAPI тебе в помощь.
SENDMESSAGE + lbМессаги
SENDMESSAGE + lbМессаги
Если можно, дайте ссылки где можно посмотреть подобные решения или на документацию. Спасибо.
Ну можно немного обмануть.
Код:
Цитата:
И еще как сдалть что бы можно было менять фокус между этими ListBox'ами клавишей Tab, то есть что бы при нажатии на Таб если фокус на листоксе 1 фокус переходил на листбокс 2, и наоборот.
Тупо каждому объекту присвоить свойстов TabStop:=false