Meine Delphi 3 Komponenten werden von Delphi 5 nicht angenommen.
Beim compilieren des Package erscheint die Meldung:<br>
HINWEIS: Alle Formulare werden verborgen sein !
Was kann ich tun ?
Beispiel:<br>
---------<br>
unit KompEC2;
interface
uses
Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, <br>
Dialogs, StdCtrls, Buttons, ExtCtrls;
type<br>
TFormEC2 = class(TForm)<br>
Procedure Bemess;<br>
Procedure Schub;<br>
end;
TKompEC2=class(TComponent)<br>
private<br>
FKomponente: TFormEC2;<br>
protected<br>
public<br>
function execute: boolean;<br>
published<br>
end;<br>
procedure register;
implementation
{$R *.DFM}
procedure register;<br>
begin<br>
registercomponents('Abel',[TKompEC2]);<br>
end;
function TKompEC2.execute: boolean;<br>
begin<br>
result:=false;<br>
FKomponente:=TFormEC2.create(application);<br>
try<br>
if FKomponente.showmodal=mrok then result:=true;<br>
finally<br>
FKomponente.free;<br>
end;<br>
end;
usw...
Beim compilieren des Package erscheint die Meldung:<br>
HINWEIS: Alle Formulare werden verborgen sein !
Was kann ich tun ?
Beispiel:<br>
---------<br>
unit KompEC2;
interface
uses
Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, <br>
Dialogs, StdCtrls, Buttons, ExtCtrls;
type<br>
TFormEC2 = class(TForm)<br>
Procedure Bemess;<br>
Procedure Schub;<br>
end;
TKompEC2=class(TComponent)<br>
private<br>
FKomponente: TFormEC2;<br>
protected<br>
public<br>
function execute: boolean;<br>
published<br>
end;<br>
procedure register;
implementation
{$R *.DFM}
procedure register;<br>
begin<br>
registercomponents('Abel',[TKompEC2]);<br>
end;
function TKompEC2.execute: boolean;<br>
begin<br>
result:=false;<br>
FKomponente:=TFormEC2.create(application);<br>
try<br>
if FKomponente.showmodal=mrok then result:=true;<br>
finally<br>
FKomponente.free;<br>
end;<br>
end;
usw...
Comment