Vorm Start

[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