Показать сообщение отдельно
  #1  
Старый 14.09.2018, 17:38
TEKTON TEKTON вне форума
Новичок
 
Регистрация: 14.03.2011
Сообщения: 60
Репутация: 10
По умолчанию Нестандартные компоненты работы со строками

Может есть компонент который выглядит как обычный Label но при клике на нём, что б выпадал список как в ComboBox?

Вопрос № 2 как у Edit убрать рамку и фон (ну или задать нужный цвет), что б остался Edit.Text только виден и возможность вводить текст при клике.

Может есть уже готовые компоненты такие ?
Если нету, то как можно такое реализовать?

Вот набросал немного код что мне надо.
Работает, но выглядит корявенько.
Код:
procedure TForm1.Label1Click(Sender: TObject);
begin
listbox1.Visible:=true;
end;


procedure TForm1.ListBox1MouseUp(Sender: TObject; Button: TMouseButton;
  Shift: TShiftState; X, Y: Integer);
begin
Label1.Caption:=Listbox1.Items.Strings[ListBox1.ItemIndex];
listbox1.Hide;
end;

procedure TForm1.FormCreate(Sender: TObject);
begin
Listbox1.Visible:=false;
end;

Спасибо.
Ответить с цитированием