делфи создание обьекта

[nyasha2013]

как создать чекк боксы на форме, чтоб получилось что то похожее

мозг уже отказывает Т__т

procedure TForm1.s1CBClick(Sender: TObject);
var Name: string;
begin
   Name := 's' + IntToStr(TControl(Sender).Tag);
   kpLogScheme1.SourceStateByName[Name] := TCheckBox(Sender).Checked;
end;

procedure TForm1.kpLogScheme1Change(Sender: TObject);
begin
try
   t1CB.Checked := kpLogScheme1.TerminalStateByName['t1'];
   t2CB.Checked := kpLogScheme1.TerminalStateByName['t2'];
except end;   
end;

обясните мне пожалуйста, что делается в этих 2 процедурах ???

на форме имеется несколько чек боксов, когда щелкаещь по ним выполняется код, вроде из компонента. (logSheme)

как сделать чтоб эти чек боксы создавались по условию и чтоб могли быть работоспособны ?

хелп плиз

[Stilet]

if некое условие then создаем:
 with TCheckBox.Create(self) do begin
  Parent:=self;
  top:=100;left:=100;caption:='fsdfsf';
  OnClick:=CheckBox1Click;
 end;

а обработчик описываешь как обычно:

type
  TForm1 = class(TForm)
....
    procedure CheckBox1Click(Sender: TObject);
....
  private
    { Private declarations }
  public
    { Public declarations }
  end;
....
procedure TForm1.CheckBox1Click(Sender: TObject);
begin
 Тут код
end;

[nyasha2013]

спасибо =)

[nyasha2013]

а как уничтожить Оо
или как очистить панель на которой они находятся ?

надо их перезаписать...

[nyasha2013]

up <----------------------->

[nyasha2013]

up <----------------------->

[Swarog]

если у тебя где то сохранились ссылки на экземпляр то делаешь просто через метод destroy, если ссылок не осталось то через владеющий ими компонет искать эти динамически созданные компоненты. У каждого контейнера есть массив Components ищи в нем свои компоненты и также вызывай destroy. допустим так

form1.components[0].destroy