Wie bei neuer Komponente Create anlegen?

[Hans-Jörg Oswald]

Hi,

der Titel sagt nicht viel aus, ich habe eine neue Komponente, abgeleitet von TForm. Wie muß denn da das Create der Form aussehen?

[Uwe Koch]

Hallo<P>
Folgende Deklaration angenommen:<BR>
TMyForm = Class(TForm)<BR>
//Properties und funtionen<BR>
end;<BR>
var MyForm : TMyForm;<P>
Es gibt 2 Möglichkeiten, je nachdem welcher der Eigentümer des Form sein soll:<BR>
1. Application.CreateForm(TMyForm,MyForm); //Damit wird die Application zum Eigentümer<BR>
2. MyForm := TMyForm.create(_Eigentümername_)<P>
cu Uw

[Hans-Jörg Oswald]

Ich habe mich da etwas unglücklich ausgedrückt. Das ganze sieht ungefähr so aus:

<PRE>
type
TMenuForm = class(TForm)
private
FMenueEbene: smallint;
function GetMenueEbene:smallint;
procedure SetMenueEbene(Value: smallint);
protected
public
constructor Create(AOwner: TComponent); override;
published
property MenueEbene: smallint read GetMenueEbene write SetMenueEbene;
end;

constructor TMenuForm.Create(AOwner: TComponent);
begin
CreateNew(AOwner);
FMenueEbene := 0;
ControlState := ControlState - [csCreating];
end;
</PRE>

In der IDE bei Datei -> neu -> andere befindet sich dann diese Form. Angeblich fehlt in dem Create etwas, aber keiner weiß genau was und wieso

[Bernd Schulz]

Hallo!<br>
Versuchs mal mit:<br>
<PRE>
constructor TMenuForm.Create(AOwner: TComponent);
begin
inherited;
FMenueEbene := 0;
ControlState := ControlState - [csCreating];
end;
</PRE>
BYE BERN