Hallo,
habe es so gemacht,
Nur, leider ist in dem Panel kein TEdit zu sehen.
Was habe ich am unten stehenden Code falsch gemacht?
Delphi-Quellcode:
unit EB_Panel;
interface
uses
SysUtils, Classes, Controls, ExtCtrls, StdCtrls;
type
TEB_Panel =
class(TPanel)
E_Edit:TEdit;
private
{ Private-Deklarationen }
protected
{ Protected-Deklarationen }
public
{ Public-Deklarationen }
constructor Create(aOwner:TComponent);
published
{ Published-Deklarationen }
end;
procedure Register;
implementation
constructor TEB_Panel.Create;
begin
try
E_Edit:=TEdit.Create(self);
E_Edit.Left:=5;
E_Edit.Top :=5;
E_Edit.Show;
finally
E_Edit.Free;
end;
end;
procedure Register;
begin
RegisterComponents('
EB_Panels', [TEB_Panel]);
end;
end.
Vielen Dank
E. B.