Delphi-Quellcode:
object Form2: TForm2
Left = 0
Top = 0
Caption = 'Form2'
ClientHeight = 427
ClientWidth = 652
Color = clBtnFace
Font.Charset = DEFAULT_CHARSET
Font.Color = clWindowText
Font.Height = -11
Font.Name = 'Tahoma'
Font.Style = []
OldCreateOrder = False
OnCreate = FormCreate
PixelsPerInch = 96
TextHeight = 13
object MeineClasse1: TMeineClasse
Left = 96
Top = 72
Width = 457
Height = 289
end
end
ich seh gerade da steht nichts von dem Button1 drin. aber warum nur
im Form sieht es so aus :
Delphi-Quellcode:
unit Unit2;
interface
uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, StdCtrls, MeineClasse;
type
TForm2 =
class(TForm)
MeineClasse1: TMeineClasse;
Button1: TButton;
procedure FormCreate(Sender: TObject);
private
{ Private-Deklarationen }
public
{ Public-Deklarationen }
end;
var
Form2: TForm2;
implementation
{$R *.dfm}
procedure TForm2.FormCreate(Sender: TObject);
begin
if Assigned(Button1)
then SHowmessage('
Button ist erzeugt')
else SHowmessage('
Button ist NICHT erzeugt')
end;
end.