[TEKTON]

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

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

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

Вот набросал немного код что мне надо.
Работает, но выглядит корявенько.

Код:

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17

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;

Спасибо.