Loaded funktioniert nicht. Was mache ich hier falsch?
unit Unit1;
interface
uses
Windows, Messages, SysUtils, Classes,
Graphics, Controls, Forms, StdCtrls;
type
TMyEdit = class(TEdit)
private
protected
procedure Loaded; override;
end;
TForm1 = class(TForm)
Edit1: TEdit;
procedure FormCreate(Sender: TObject);
private
{ Private declarations }
public
MyEdit : TMyEdit;
end;
var
Form1: TForm1;
implementation
{$R *.DFM}
procedure TMyEdit.Loaded;
begin
inherited Loaded;
Top := 100; // Hier ist das Problem.
end;
procedure TForm1.FormCreate(Sender: TObject);
begin
MyEdit := TMyEdit.Create(Self);
MyEdit.Parent := Form1;
end;
end.
unit Unit1;
interface
uses
Windows, Messages, SysUtils, Classes,
Graphics, Controls, Forms, StdCtrls;
type
TMyEdit = class(TEdit)
private
protected
procedure Loaded; override;
end;
TForm1 = class(TForm)
Edit1: TEdit;
procedure FormCreate(Sender: TObject);
private
{ Private declarations }
public
MyEdit : TMyEdit;
end;
var
Form1: TForm1;
implementation
{$R *.DFM}
procedure TMyEdit.Loaded;
begin
inherited Loaded;
Top := 100; // Hier ist das Problem.
end;
procedure TForm1.FormCreate(Sender: TObject);
begin
MyEdit := TMyEdit.Create(Self);
MyEdit.Parent := Form1;
end;
end.
Comment