Komponente vor der Erzeugung der 1. Form aktivieren?

[Christian Seehase]

Moin Armin,

hier mal zwei Möglichkeiten:
Beide setzen allerdings voraus, dass sich die Kompo nicht auf einem der Formulare befindet.

Delphi-Quellcode:

// Variante 1

PROGRAM Compo_test; 

uses 
  Forms, 
  FlappError,                       // Meine Komponente 
  uMain in 'uMain.pas' {Form1}, 
  Unit2 in 'Unit2.pas' {Form2}, 
  Flapp_Utils in 'Flapp_Utils.pas'; 
{$R *.res} 

var
  leWork : TFlappError;

BEGIN 
  Application.Initialize; 
  
  leWork := TFlappError.Create;
  try
    Application.CreateForm(TForm1, Form1); 
    Application.CreateForm(TForm2, Form2); 
    Application.Run; 
  finally
    FreeAndNil(leWork);
  end;
END.


// Variante 2

Unit Unit1;

interface

//...


var
  leWork : TFlappError;

//...

implementation

//...

initialization
begin
  leWork := TFlappError.Create;
end;  

finalization
begin
  FreeAndNil(leWork);
end;