содержимое в листбох

[XE5]

Есть мнение, что тему бесполезно продолжать.

[alman12]

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

Есть мнение, что тему бесполезно продолжать.

меня никто не понимает

[alman12]

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

Есть мнение, что тему бесполезно продолжать.

как на картинке ниже

[superedward]

ТС, по-моему, хочет, чтобы в обычном режиме в листбоксе отображалось только имя, а при клике мышью на строке отображалось фамилия и имя

[eval]

а есть еще и не обычный режим?

[XE5]

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

ТС, по-моему, хочет, чтобы в обычном режиме в листбоксе отображалось только имя, а при клике мышью на строке отображалось фамилия и имя

Ну так пусть и озвучит так же задачу. Вас же я понимаю, а его ни кто не понимает. Такое ощущение, что пытаемся с китайцем общаться.

[Stilet]

при клике на листбох в имя показался имя и фамилия в label1 и label2

Архивируй проект, и прикладывай сюда.
Так же полностью подробнейше опиши что ты хочешь сделать. Тебя сейчас никто не понимает что ты всетки хочешь сделать. Откуда берутся ФИО, куда они должны попадать и т.д.

[Alter]

Телепатор сообщает, что нужно типо этого:

unit Unit1;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls;

type
  TForm1 = class(TForm)
    Edit1: TEdit;
    Edit2: TEdit;
    Label1: TLabel;
    Label2: TLabel;
    Button1: TButton;
    Button2: TButton;
    ListBox1: TListBox;
    procedure FormCreate(Sender: TObject);
    procedure Button1Click(Sender: TObject);
    procedure ListBox1DrawItem(Control: TWinControl; Index: Integer;
      Rect: TRect; State: TOwnerDrawState);
    procedure ListBox1DblClick(Sender: TObject);
    procedure Button2Click(Sender: TObject);
  private
    { Private declarations }
  public
    N :Integer;
    { Public declarations }
  end;

var
  Form1: TForm1;

implementation

{$R *.dfm}

procedure TForm1.FormCreate(Sender: TObject);
begin
 ListBox1.Style := lbOwnerDrawFixed;
 ListBox1.ShowHint := True;
 ListBox1.Hint := 'Двойной клик мышью по нужному элементу списка, для выбора';
end;

procedure TForm1.Button1Click(Sender: TObject);
begin
 if (Trim(Edit1.Text)='') or (Trim(Edit2.Text)='') then
  Exit;
 ListBox1.Items.Values[Edit1.Text] := Edit2.Text;
 Edit1.Clear;
 Edit2.Clear;
end;

procedure TForm1.ListBox1DrawItem(Control: TWinControl; Index: Integer;
  Rect: TRect; State: TOwnerDrawState);
begin
 With (Control as TListBox) DO
 Begin
    // выделенное
  If (odSelected in State) then
   Canvas.Brush.Color := $00EFD3C6
  else
   Canvas.Brush.Color := clWhite;
  Canvas.FillRect(Rect);
   // текст
  Canvas.TextOut(Rect.Left, Rect.Top, Items.Names[Index]);
 end;
end;

procedure TForm1.ListBox1DblClick(Sender: TObject);
begin
 N := ListBox1.ItemIndex;
 if ListBox1.Items.Count > 0 then
 if N >= 0 then
 begin
  Edit1.Text := ListBox1.Items.Names[N];
  Edit2.Text := ListBox1.Items.ValueFromIndex[N];
 end;  
end;

procedure TForm1.Button2Click(Sender: TObject);
begin
 if ListBox1.Items.Count > 0 then
 if N >= 0 then
 begin
  ListBox1.Items.Strings[N] := Format('%s=%s', [Edit1.Text, Edit2.Text]);
 end;  
end;

end.