Советы по Delphi. Версия 1.4.3 от 1.1.2001

 {Устанавливаем CurrPrefixLen в TextWidth ключевого слова строки Indexth}

 LongPrefixLen := 0;

 for J := 0 to ListBox1.Items.Count-1 do

  with ListBox1.Canvas do begin

  TempInt:= TextWidth(Copy(Items[J], 1, Pos(KeyString, Items[J]-1)));

  if LongPrefixLen < TempInt then LongPrefixLen:= TempInt;

  if J = Index  then CurrPrefixLen:= TempInt;

 end;

 {PrevTextLeft – TextLeft = Где мы хотим вывести новый элемент}

 TextOut(LongPrefixLen-CurrPrefixLen, Y, Items[I]);

end;

Создание ListBox во время выполнения программы

Delphi 1

Установка выравнивания ListBox на alLeft вызывает изменение размеров ListBox при любом изменении размеров формы. Установка ширины происходит очень легко (помните о том, что ширина Width, которую вы видите в правой части строки, является свойством Width формы).

Количество элементов, хранимых ListBox, ограничено только доступной памятью.

procedure TForm1.CreateListBox;

var LB : TListBox;

begin

 LB := TListBox.Create;

 LB.Align := alLeft;

 LB.Width := Width div 2;

end;

Вот логика динамического создания ListBox и изменения его размера при изменения размеров формы. Я надеюсь, что помог вам. Также я подозреваю, что данные ListBox ограничены 32 килобайтами.

unit Unit1;

interface

uses SysUtils, WinTypes, WinProcs, Messages, Classes, Graphics, Controls, Forms, Dialogs, StdCtrls  { вам нужно это для ListBox }  ;

type TForm1 = class(TForm)

 procedure FormCreate(Sender: TObject);

 procedure FormResize(Sender: TObject);

private

 { Private declarations }

public

 { Public declarations }

end;

var

 Form1: TForm1;

 listbox: TListBox;

implementation

{$R *.DFM}

procedure TForm1.FormCreate(Sender: TObject);

begin

 listbox := TListBox.Create(self);

 listbox.Parent := self;

 listbox.Top := 0;

 listbox.Left := 0;

 listbox.Width := self.Width div 2;

 listbox.Height := self.Height div 2;

 listbox.items.add('тест 1');

 listbox.items.add('тест 2');

 { и т.д, и т.п. … }

end;

procedure TForm1.FormResize(Sender: TObject);

begin

 listbox.Width := self.Width div 2 ;

 listbox.Height := self.Height div 2 ;

end;

end.

Двойной ListBox

Я расположил на форме два компонента Listbox, и с помощью следующего кода заполнил один из них данными из таблицы:

tableName.Refresh; {в вашем случае это может и не понадобится}

tableName.First;   {Убедимся, что мы смотрим первую запись}

while not tableName.Eof do {проходим в цикле таблицу}

begin

 listbox1.items.add(tableName.FieldByName('USRID').AsString); {добавляем элемент в listbox1}

 tableName.Next; {переходим к следующей записи}

end;

ниже я привел процедуру из моего рабочего кода, в котором я использую эту технологию. Я передаю ей в качестве параметров имя таблицы и имена компонентов listbox1 и listbox2. Я пользуюсь этой процедурой, поскольку у меня есть несколько таблиц с полями одинакового типа:

procedure TTemplateFrm.buildList(tableName: TTable; SelBox, AvailBox: TListBox);

begin

 {в этой процедуре мы собираемся добавить данные в listbox'ы}

 {получаем любые новые данные}

 tableName.Refresh;

 {Убедимся, что мы смотрим первую запись}

 tableName.First;

 {Теперь очищаем ListBox'ы}

 SelBox.Clear;

 AvailBox.Clear;

 {Теперь добавляем элементы}