| Новости | Поиск | FAQ | Статьи | Книги | Новости VCL | | Форумы ЧАТ | Орешник | KOL и MCK |
Форумы -» Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG

	« предыдущая ветвь | форум | следующая ветвь »

TListBox [D6, Win2k]

smit_ ©   (2002-07-30 15:36:00) 

Почему это не работает?

unit Unit1;

interface

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

type
TForm1 = class(TForm)
Button1: TButton;
procedure Button1Click(Sender: TObject);
end;

TUserListBox = class(TListBox)
public
constructor Create(AOwner: TComponent); override;
end;

var
Form1: TForm1;

implementation

{$R *.dfm}

constructor TUserListBox.Create(AOwner: TComponent);
begin
inherited Create(AOwner);

// ВОТ ТУТ
Items.Add("Первая строка");
end;

procedure TForm1.Button1Click(Sender: TObject);
var
FUserListBox: TUserListBox;
begin
FUserListBox := TUserListBox.Create(self);
end;

end.

---

Mike Kouzmine   (2002-07-31 10:00:00) [1]

Попробуй так.
constructor Create(aOwner);
var
L : TStrings;
begin
inherited Create(aOwner);
try
L := TStringList.Create;
L.Add("Первая строка");
Items.Assign(L);
finally
L.Free;
end;
end;

---

MBo   (2002-07-31 06:34:00) [2]

кроме конструктора, перекрой еще метод CreateWnd, в момент его выполнения окно уже существует, и в нем можно добавлять Items

---

idr   (2002-07-30 15:51:00) [3]

Вставьте перед(вместо:)) строки
//ВОТ ТУТ
строку :
Parent:=Form1;
и все работает...

---

SVM   (2002-07-30 15:46:00) [4]

Парента поставь.

---

Наверх