Vorm Start

[t0mmy]

Wie kann ich eine prozedur vorm Start ausführen lassen?

Natürlich in Delphi

[cookie22]

Delphi-Quellcode:

program Project1;

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

{$R *.res}

begin
// dein code, was auch immer

  Application.Initialize;
  Application.MainFormOnTaskbar := True;
  Application.CreateForm(TForm1, Form1);
  Application.Run;
end.

[t0mmy]

Delphi-Quellcode:

unit Unit1;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls,
  Unit1 in 'Unit1.pas' {Form1};

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

var
  Form1: TForm1;

implementation

{$R *.dfm}
begin
  ShowMessage('Hello');
  Application.Initialize;
  Application.MainFormOnTaskbar := True;
  Application.CreateForm(TForm1, Form1);
  Application.Run;
end.


procedure TForm1.FormCreate(Sender: TObject);
begin

end;

end.

Warum bekomm ich hier eine Errormeldung vom Compiler ??

[t0mmy]

Okay ich hab jetzt ein Programm erstellt mit dem ich per button ein anderes Form erstell aber bevor die Form aufgerufen werden soll soll eine msgbox erscheinen mit "Sicher?"

unit about;

Delphi-Quellcode:

interface

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

type
  TForm3 = class(TForm)
    okAbout: TButton;
    Label1: TLabel;
    Button1: TButton;
    
    procedure FormCreate(Sender: TObject);
    procedure okAboutClick(Sender: TObject);
    procedure Button1Click(Sender: TObject);
    
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form3: TForm3;

implementation

{$R *.dfm}

procedure TForm3.FormCreate(Sender: TObject);
begin
  ShowMessage('Sicher?');
end;
end.

Aber es erschein nichts Compilieren lässt sichs und laufen tuts auch ohne Meldungen

[t0mmy]

hmm ich verzweifel noch

[fkerber]

Hi!

Zwei Sachen:
Bitte verwende Delphi-Tags, damit dein Code besser lesbar ist.
Bitte pushe nicht vor Ablauf von 24h.


Liebe Grüße,
Frederic

[Jens Hartmann]

Was cockie22 gezeigt hat, gehört auch nicht in die "unit" (MyUnit.pas) sondern in die Projektdatei (MyProjekt.dpr). Die Datei kannst Du über die Projektverwaltung mit der Rechten Maustaste "Quelltext zeigen" öffnen.

Gruß Jens

[newbe]

Kannst du dem Thread bitte einen vernünftigen Titel geben?

Zum Beispiel "Procedure vor Programmstart ausführen" ?!

Danke.

mfG newbe

[himitsu]

Zitat von t0mmy:

Warum bekomm ich hier eine Errormeldung vom Compiler ??

Man könnte ja auch mal verraten welche Meldung das ist.

PS: die Delphi-Dialoge (mit Strg+C) und auch die Liste der Compiler-Meldungen (siehe Kontextmenü) lassen sich kopieren.

Zitat von t0mmy:

Delphi-Quellcode:

TForm3 = class(TForm)
  procedure FormCreate(Sender: TObject);
end;

Aber es erschein nichts Compilieren lässt sichs und laufen tuts auch ohne Meldungen

Ich hoffe doch, diese Methode wurde nicht einfach nur so da hingeschrieben, sondern ist auch mit dem OnCreate-Ereignis der Form verknüpft.

[Phoenix]

Zitat von newbe:

Kannst du dem Thread bitte einen vernünftigen Titel geben?
Zum Beispiel "Procedure vor Programmstart ausführen" ?!

Newbe, wenn Du mit einem Titel nicht zufrieden bist, dann verwende bitte die Beitrag-Melden Funktion und lasse das Moderator-Team seinen Job tun.