[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;

Спасибо.

[Guaho]

Посмотрите в сторону TMS components. Там очень много всякой всячины, разных полезностей и красивостей, может и найдёте для себя что-то близкое к истине.

[lmikle]

1. Можно сдеалать черещ PopupMenu

Код:

1 2 3 4 5 6 7 8 9

procedure TForm1.Label1Click(Sender : TObject); var   p : TPoint; begin   p.Top := (Sender As TLabel).Top + (Sender As TLabel).Height;   p.Left := (Sender As TLabel).Left;   p := ClienttoScreen(p);   PopupMenu1.Popup(p); end;

Ну и в обработчике MenuItem'ов укажешь на установку соотв. значения.

2. Можно настроить и стандартный компонент. На вскидку не скажу как (просто не помню), но делал такое.

[TEKTON]

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

Код:

Ругается.
Мож чего надо ещё добавить?

[Error] Unit1.pas(127): Undeclared identifier: 'Top'
[Error] Unit1.pas(128): Undeclared identifier: 'Left'
[Error] Unit1.pas(130): Incompatible types: 'Integer' and 'TPoint'

[lmikle]

Сорри, забыл как оно там. Вот так работает:

Код:

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 34 35 36 37 38 39 40 41

type   TForm1 = class(TForm)     lbClickMe: TLabel;     pmClickMe: TPopupMenu;     miClickMe1: TMenuItem;     miClickMe2: TMenuItem;     miClickMe3: TMenuItem;     edEdit: TEdit;     procedure lbClickMeClick(Sender: TObject);     procedure pmClickMeClick(Sender: TObject);   private     { Private declarations }   public     { Public declarations }   end;   var   Form1: TForm1;   implementation   {$R *.dfm}   procedure TForm1.lbClickMeClick(Sender: TObject); var   p : TPoint; begin   p.X := (Sender As TLabel).Left;   p.Y := (Sender As TLabel).Top + (Sender As TLabel).Height + 2;   p := ClientToScreen(p);   pmClickMe.Tag := Integer(Sender);   pmClickMe.Popup(p.X,p.Y); end;   procedure TForm1.pmClickMeClick(Sender: TObject); var   lb : TLabel; begin   lb := TLabel(pmClickMe.Tag);   lb.Caption := (Sender As TMenuItem).Caption; end;

pmClickMeClick назначен всем пунктам меню.

По поводу TEdit.
Надо поставить такие свойства в соотв. значения:

Код:

1 2 3 4

BorderStyle := bsNone; BevelInner := bvNone; BevelOuter := bvNone; Color := clBtnFace;