listbox create

Question

MinhaUnit.pas===============================================procedure CriaListbox(form1: TForm);beginlistbox:= TListBox.Create(Form1);Parent := Form1;listbox.onDrawItem:= desenhaItem;end;procedure des...

Beppe · Answer

O �pau� � que um evento exige um m�todo(que por defini��o est� implementado em uma classe).

Est� um pouco incompleto o c�digo que passou, mas eu dei uma �incrementada�:

var
  listbox: TListBox;

procedure desenhaItem(Sender: TObject; Control: TWinControl; Index: Integer; Rect: TRect; State: TOwnerDrawState);
begin
// pode remover esta linha
TForm(Sender).Caption := Control.ClassName;
end;

procedure CriaListbox(form1: TForm);
var
  OnDraw: TMethod;
begin
listbox:= TListBox.Create(Form1);
listbox.Parent := Form1;
listbox.Style := lbOwnerDrawFixed;

// pode remover estas 2 linhas
listbox.Items.Add(�um�);
listbox.Items.Add(�dois�);

OnDraw.Code := @desenhaItem;
OnDraw.Data := form1;
listbox.onDrawItem:= TDrawItemEvent(ondraw);


end;

procedure TForm1.Button1Click(Sender: TObject);
begin
  CriaListbox(Self);
end;

Perceba o primeiro par�metro da rotina desenhaItem. Ele receber� o valor de OnDraw.Data.

[]�s

F�rum listbox create #269063