[Resolvido] Atribuir clique a lista criada dinamicamente

[Jerfs 1]

Segue abaixo o meu código, estou criando uma Check List Box dinamicamente, mas eu quero atribuir uma função de clique a ela! como eu faço?

 

CODE

procedure TfrmPrincipal.criaNovaAba(Dono: TPageControl; nomeAba,nomeList1,nomeList2,menu : string);

var

listSub : TCheckListBox;

Begin

listSub := TCheckListBox.Create(dono);

 

// CRIANDO LIST SUBJECTS

with listSub do

Begin

Name := nomeList1;

Parent := newTab;

Width := pcontrol.Width-10;

Height := 82;

Top := 20;

multiselect := true;

End;

End;

 

[marcio.theis 3]

Você pode fazer da seguinte forma:

 

Na procedure que cria o componente você deve de criar a atribuição:

 

procedure TfrmPrincipal.criaNovaAba(Dono: TPageControl; nomeAba,nomeList1,nomeList2,menu : string);
var
	listSub : TCheckListBox;
Begin
listSub := TCheckListBox.Create(dono);

// CRIANDO LIST SUBJECTS
with listSub do
	Begin
	Name := nomeList1;
	Parent := newTab;
	Width := pcontrol.Width-10;
	Height := 82;
	Top := 20;
	multiselect := true;

	OnClick:=ClickPadrao_CheckListBox;
	End;
End;

Criando a procedure que irá ser executado como sendo o OnClick do componente:

Crie uma procedure da seguinte forma:

 

procedure ClickPadrao_CheckListBox(Sender: TObject);

No fonte como exemplo:

 

procedure TForm1.ClickPadrao_CheckListBox(Sender: TObject);
begin
ShowMessage(TCheckListBox(Sender).Items.Strings[TCheckListBox(Sender).ItemIndex]);
end;

[Jerfs 1]

SEM COMENTÁRIOS! PERFEITO!!!

 

 

http://forum.imasters.com.br/public/style_emoticons/default/thumbsup.gif Valeu!

[marcio.theis 3]

beleza... http://forum.imasters.com.br/public/style_emoticons/default/thumbsup.gif