opret en ny form når programmet startes

Project->Options->Forms
Under "Auto-create forms" vælger du Form2 og trykker på ">"-knappen.

Under din FormCreate skriver du så:

procedure TForm1.FromCreate(Sender: TObject);
begin
  Form2 := TForm2.Create(Form1);
  Form2.ShowModal;
  Form2.Free;
end;

Så ligger din Form2 heller ikke hukommelsen hele tiden, men kun der i starten! ;)

//hermandsen

hvis begge forms skal vises så prøv dette:

program Project1;

uses
  Forms,
  Unit1 in 'Unit1.pas' {Form1},
  Unit2 in 'Unit2.pas' {Form2};

{$R *.res}

begin
  Application.Initialize;
  Application.CreateForm(TForm1, Form1);
  Application.CreateForm(TForm2, Form2);
  Form2.Show;
  Application.Run;
end.

Placer en timer1 på din form:

unit Unit1;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, ExtCtrls;

type
  TForm1 = class(TForm)
    Timer1: TTimer;
    procedure FormCreate(Sender: TObject);
    procedure Timer1Timer(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form1: TForm1;

implementation

uses Unit2;

{$R *.dfm}
procedure OpretForm;
begin
  Form2.ShowModal;
end;
procedure TForm1.FormCreate(Sender: TObject);
begin
timer1.interval := 1;
timer1.enabled := false;
end;

procedure TForm1.Timer1Timer(Sender: TObject);
begin
form2.ShowModal;
end;

end.

ellers kan du bare smide den ind i FormShow.
Dette vil dog medføre, at form2 vil blive vist vær gang du sætter.
Form1.Visible:=true;


eksemble.
procedure TForm1.FormShow(Sender: TObject);
begin
    Form2.ShowModal;
end;

>>dcgeek
Jeg tror det var borrisholt der en gang sagde "En timer er ALTID forkert!" Og hvor har han dog ret! ;)
Kan egentlig heller ikke rigtig se hvad det skulle hjælpe når du alligevel sætter Timer1.Enabled := False;
Så kommer den da bare slet ikke ret langt! ;)

Det er måske ikke så fikst det her men det burde kunne løses ved, at du erklærer en boolean-variabel fx.

VisForm2: boolean = true;

Form1Activate skal så se således ud:

procedure TForm1.FormActivate(Sender: TObject);
begin
  if (VisForm2 = True) then
  begin
    Form2.Show;
    VisForm2 := False;
  end;
end;