Panel mit 4 Labels von TPanel ableiten

[Nikolas]

Ok, jetzt habe ich es verstanden.

Vielen Dank für deine Hilfe




Für die den Thread später lesen:

Delphi-Quellcode:

CStunde = class(Tobject)
 public
 Panel: TPanel;
 Constructor Create(t,l,h,w: integer; form: TForm);
end;

Delphi-Quellcode:

Constructor CStunde.create(t,l,h,w: integer; Form: TForm);
begin
Panel:=  TPanel.Create(nil);

 with panel do
  begin
  Parent:= Form;
  Top:= t;
  ...
  end;

 end; 
end;

Im Aufrufenen Formualar:

Delphi-Quellcode:

var
  Form1: TForm;
  sp: CStunde;

Delphi-Quellcode:

procedure TForm1.Button1Click(Sender: TObject);
begin
sp := Cstunde.Create(50,50,120,200,Form1);
sp.Panel.OnClick:= myclick;
end;

Delphi-Quellcode:

Procedure TForm1.MyClick(Sender: TObject);
begin
showmessage('öööööö');
end;