title image


Smiley Ich zeig dir das mal
Das Ding ist bis in die letzte Faser dynamisch ;)

Probiers aus



unit Unit1;interfaceuses  Windows, Messages, extctrls, stdctrls, SysUtils, Classes, Graphics, Controls, Forms, Dialogs;const WM_Foo = WM_USER + $F00;type  TFooItem = class  private    Parent       : DWord;    DeleteButton : TButton;    Text         : TLabel;    Panel        : TPanel;    procedure OnDestroyClick(Sender : TObject);  public    constructor create(owner : TComponent; pos : TPoint);    destructor destroy; override;  end;  TForm1 = class(TForm)    Button1: TButton;    procedure Button1Click(Sender: TObject);  private    { Private-Deklarationen }    procedure DeleteFooClass(var msg : TMsg); message WM_Foo;  public    { Public-Deklarationen }  end;var  Form1: TForm1;implementation{$R *.DFM}constructor TFooItem.create(owner : TComponent; pos : TPoint);begin     Parent := TForm(owner).handle;     Panel := TPanel.Create(owner);     with Panel do          begin          Parent := TWinControl(owner);          Top    := pos.y;          Left   := pos.x;          Width  := 300;          Height := 30;          end;     DeleteButton := TButton.Create(owner);     with DeleteButton do          begin          Parent  := Panel;          Top     := 0;          Left    := 0;          Width   := 60;          Height  := 30;          Caption := 'Delete';          OnClick := OnDestroyClick;          end;     Text := TLabel.Create(owner);     with Text do          begin          Parent   := Panel;          Top      := 10;          Left     := 70;          AutoSize := true;          Caption  := 'Click delete do free the class';          end;end;destructor TFooItem.destroy;begin     DeleteButton.Free;     Panel.Free;     inherited;end;procedure TFooItem.OnDestroyClick(Sender : TObject);begin     PostMessage(parent, WM_Foo, 0, Integer(self));end;procedure TForm1.DeleteFooClass(var msg : TMsg);begin     if msg.wParam = 0 then        exit else        TFooItem(msg.wParam).free;end;procedure TForm1.Button1Click(Sender: TObject);begin     TFooItem.create(Form1, Point(0,0));end;end.

geschrieben von

Login

E-Mail:
  

Passwort:
  

Beitrag anfügen

Symbol:
 
 
 
 
 
 
 
 
 
 
 
 
 

Überschrift: