hallo,

ich habe eine TMyListBox klasse erstellt die von TListBox abgeleitet ist.
nur wird mein CustomListBox nicht angezeigt.
der code wird mehr sagen.

markieren

Code:

unit MyListBox;

interface
uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls, cxControls, cxContainer, cxListBox, cxDBEdit, adscnnct,
  DB, adstable, adsdata, adsfunc, Grids, DBGrids, MyMemo;

type
  TMyListBox = class(TListBox)

  private

  public
  end;
implementation

end.

markieren

Code:

procedure TForm1.FormCreate(Sender: TObject);
var
  MyListBox : TMyListBox;
begin
  MyListBox := TMyListBox.Create(self);
  with MyListBox do
  begin
    Left := 24;
    Top := 136;
    Width := 249;
    Height := 505;
    ItemHeight := 13;
    TabOrder := 2;
  end;
  {

  }
end;

ich meine, ich hab was vergessen. nur weiss ich nicht was.

gruß

inriz

Ohne Parent keine Anzeige...

Grüße vom marabu