Недавно добавленные исходники

•  TDictionary Custom Sort  506

•  Fast Watermark Sources  872

•  3D Designer  1 801

•  Sik Screen Capture  1 455

•  Patch Maker  1 459

•  Айболит (remote control)  1 387

•  ListBox Drag & Drop  1 155

•  Доска для игры Реверси  21 222

•  Графические эффекты  1 335

•  Рисование по маске  1 274

•  Перетаскивание изображений  1 084

•  Canvas Drawing  961

•  Рисование Луны  798

•  Поворот изображения  754

•  Рисование стержней  801

•  Paint on Shape  486

•  Генератор кроссвордов  747

•  Головоломка Paletto  659

•  Теорема Монжа об окружностях  839

•  Пазл Numbrix  606

•  Заборы и коммивояжеры  835

•  Игра HIP  549

•  Игра Go (Го)  522

•  Симулятор лифта  544

•  Программа укладки плитки  505

•  Генератор лабиринта  560

•  Проверка числового ввода  519

•  HEX View  595

•  Физический маятник  522

•  Задача коммивояжера  556

 
скрыть


Delphi FAQ - Часто задаваемые вопросы

| Базы данных | Графика и Игры | Интернет и Сети | Компоненты и Классы | Мультимедиа |
| ОС и Железо | Программа и Интерфейс | Рабочий стол | Синтаксис | Технологии | Файловая система |



Создать редактируемый TListBox



Оформил: DeeCo

{NOTE : This will also work with an OwnerDraw ListBox 
But be sure you "pad" the Left Property of the Edit so 
Any icons etc, do not get covered up by the TEdit. 
And also be aware that there will be a bit of "flashing" 
if you do use an OwnerDraw ListBox}

 {This is in a Popup menu.}
 procedure TForm1.Change1Click(Sender: TObject);
 var
   I9: Integer;
   ColInt: Integer;
   LRect: TRect;
 begin
   LRect := ListBox1.ItemRect(ListBox1.ItemIndex);
   {Set the size of the TEdit}
   Edit1.Top := LRect.Top + 1;
   Edit1.Left := LRect.Left + 1;
   Edit1.Width := ListBox1.Canvas.TextWidth(ListBox1.Items.Strings[ListBox1.ItemIndex]) + 6;
   Edit1.Height := (LRect.Bottom - LRect.Top) + 1;

   Edit1.Text := ListBox1.Items.Strings[ListBox1.ItemIndex];
   ListBox1.Selected[ListBox1.ItemIndex] := False;
   Edit1.Visible := True;
   Edit1.SelectAll;
   Edit1.SetFocus;
 end;

 procedure TForm1.ListBox1Click(Sender: TObject);
 begin
   Edit1.Visible := False;
 end;

 procedure TForm1.Edit1KeyPress(Sender: TObject; var Key: Char);
 var
   I8: Integer;
 begin
   if Key = #13 then
   begin
     I8 := ListBox1.ItemIndex;
     ListBox1.Items.Delete(ListBox1.ItemIndex);
     ListBox1.Items.Insert(I8, Edit1.Text);
     Edit1.Visible := False;
     Key := #0;
   end;
 end;







Copyright © 2004-2022 "Delphi Sources" by BrokenByte Software. Delphi World FAQ

Группа ВКонтакте   Facebook   Ссылка на Twitter   Ссылка на Telegram