{"id":84,"date":"2007-05-12T13:46:15","date_gmt":"2007-05-12T11:46:15","guid":{"rendered":" http:\/\/www.nsonic.de\/blog\/2007\/05\/create-editable-listbox\/"},"modified":"2007-05-12T13:46:17","modified_gmt":"2007-05-12T11:46:17","slug":"create-editable-listbox","status":"publish","type":"post","link":"https:\/\/www.nsonic.de\/blog\/2007\/05\/create-editable-listbox\/","title":{"rendered":"Create Editable ListBox"},"content":{"rendered":"

NOTE : This will also work with an OwnerDraw ListBox
\nBut be sure you “pad” the Left Property of the Edit so
\nAny icons etc, do not get covered up by the TEdit.
\nAnd also be aware that there will be a bit of “flashing”
\nif you do use an OwnerDraw ListBox
\n<\/em>
\n[code lang=”delphi”]\/\/This is in a Popup menu.
\nprocedure TForm1.Change1Click(Sender: TObject);
\n Var
\n I9 : Integer;
\n ColInt : Integer;
\n LRect : TRect;
\nbegin
\n LRect := ListBox1.ItemRect(ListBox1.ItemIndex);
\n\/\/Set the size of the TEdit
\n Edit1.Top := LRect.Top + 1;
\n Edit1.Left := LRect.Left + 1;
\n Edit1.Width := ListBox1.Canvas.TextWidth(ListBox1.Items.Strings[ListBox1.ItemIndex]) + 6;
\n Edit1.Height := (LRect.Bottom – LRect.Top) + 1;<\/p>\n

Edit1.Text := ListBox1.Items.Strings[ListBox1.ItemIndex];
\n ListBox1.Selected[ListBox1.ItemIndex] := False;
\n Edit1.Visible := True;
\n Edit1.SelectAll;
\n Edit1.SetFocus;
\nend;<\/p>\n

procedure TForm1.ListBox1Click(Sender: TObject);
\nbegin
\n Edit1.Visible := False;
\nend;<\/p>\n

procedure TForm1.Edit1KeyPress(Sender: TObject; var Key: Char);
\n Var
\n I8 : Integer;
\nBegin
\n If Key = #13 Then
\n Begin
\n I8 := ListBox1.ItemIndex;
\n ListBox1.Items.Delete(ListBox1.ItemIndex);
\n ListBox1.Items.Insert(I8, Edit1.Text);
\n Edit1.Visible := False;
\n Key := #0;
\n End;
\nEnd;[\/code]<\/p>\n

[tags]Delphi, Components, ListBox[\/tags]<\/p>\n","protected":false},"excerpt":{"rendered":"

NOTE : This will also work with an OwnerDraw ListBox But be sure you “pad” the Left Property of the Edit so Any…<\/p>\n","protected":false},"author":2,"featured_media":0,"comment_status":"open","ping_status":"open","sticky":false,"template":"","format":"standard","meta":{"spay_email":""},"categories":[11],"tags":[90,75,91],"jetpack_featured_media_url":"","jetpack_shortlink":"https:\/\/wp.me\/p71Tml-1m","_links":{"self":[{"href":"https:\/\/www.nsonic.de\/blog\/wp-json\/wp\/v2\/posts\/84"}],"collection":[{"href":"https:\/\/www.nsonic.de\/blog\/wp-json\/wp\/v2\/posts"}],"about":[{"href":"https:\/\/www.nsonic.de\/blog\/wp-json\/wp\/v2\/types\/post"}],"author":[{"embeddable":true,"href":"https:\/\/www.nsonic.de\/blog\/wp-json\/wp\/v2\/users\/2"}],"replies":[{"embeddable":true,"href":"https:\/\/www.nsonic.de\/blog\/wp-json\/wp\/v2\/comments?post=84"}],"version-history":[{"count":0,"href":"https:\/\/www.nsonic.de\/blog\/wp-json\/wp\/v2\/posts\/84\/revisions"}],"wp:attachment":[{"href":"https:\/\/www.nsonic.de\/blog\/wp-json\/wp\/v2\/media?parent=84"}],"wp:term":[{"taxonomy":"category","embeddable":true,"href":"https:\/\/www.nsonic.de\/blog\/wp-json\/wp\/v2\/categories?post=84"},{"taxonomy":"post_tag","embeddable":true,"href":"https:\/\/www.nsonic.de\/blog\/wp-json\/wp\/v2\/tags?post=84"}],"curies":[{"name":"wp","href":"https:\/\/api.w.org\/{rel}","templated":true}]}}