TListBox

← →
smit_ (2002-07-30 15:36) [0]

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

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.

← →
SVM (2002-07-30 15:46) [1]

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

← →
idr (2002-07-30 15:51) [2]

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

← →
MBo (2002-07-31 06:34) [3]

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

← →
Mike Kouzmine (2002-07-31 10:00) [4]

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

TListBox Найти похожие ветки