Forma Delphi 7

[Денис999]

Подскажите чего не работает форма на Делфи 7!

unit Unit1;

interface

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

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

var
  Form1: TForm1;
  Button1: TButton;
    CheckBox1: TCheckBox;
    CheckBox2: TCheckBox;
    CheckBox3: TCheckBox;

implementation

{$R *.dfm}
procedure TForm1.FormCreate(Sender: TObject);
begin
Button1:=TButton.Create(self);
  Button1.Height:=100;
  Button1.Width:=200;
  Button1.Top:=100;
 Button1.Left:=120;

 CheckBox1:=TCheckBox.Create(self); //³í³ö³àë³çàö³ÿ îá'ºêòó òèïó ì³òêà
 CheckBox1.Height:=100;
  CheckBox1.Width:=200;
  CheckBox1.Top:=200;
 CheckBox1.Left:=120;

CheckBox2:=TCheckBox.Create(self);
 CheckBox2.Height:=100;
  CheckBox2.Width:=200;
  CheckBox2.Top:=200;
 CheckBox2.Left:=120;

 CheckBox3:=TCheckBox.Create(self);
 CheckBox3.Height:=100;
  CheckBox3.Width:=200;
  CheckBox3.Top:=200;
 CheckBox3.Left:=120;

 form1.caption:='Denis';
   end;
end.

[Пепел Феникса]

телепатия мне подсказывает, что не работает означает что ничего на ней не отображается.
а Parent компонентам кто ставить должен?

[Человек_Борща]

//Off
Если родитель не указан, то где создаются компоненты?
В памяти чтоль просто так зависают?

[Пепел Феникса]

не все знают что Owner и Parent разное.
многие считают что тот компонент который передашь в конструкторе и будет родителем.
вообще помоему это какой то бред борланда, странная система однако.

[Денис999]

Пепел Феникса вы правы, вообще ниче не отображается. Вот дописал Parent теперь она вообще морозиться начала)))

[Денис999]

То есть он библиотеку какую то не открывает?
Заранее извиняюсь по скольку нам задали сделать всего 1 лабу по Делфи...

[Пепел Феникса]

что делать стала?
зависает?
или что?

[Денис999]

я так понял вы имели ввиду в uses дописать Parent.
ну я заново просто открыл свой исходник, все так и осталось, просто ниче на форме не отображается.

[Пепел Феникса]

вообще то я имел в виду что каждому компоненту нужно свойство Parent задать.

Button1.Parent:=Self;

а про юзес я бы явно сказал.

[Денис999]

Button1:=TButton.Create(self);
Button1.Parent:=Self;
Button1.Height:=100;
Button1.Width:=200;
Button1.Top:=100;
Button1.Left:=120;

CheckBox1:=TCheckBox.Create(self);
CheckBox1.Parent:=Self;
CheckBox1.Height:=100;
CheckBox1.Width:=200;
CheckBox1.Top:=200;
CheckBox1.Left:=120;

CheckBox2:=TCheckBox.Create(self);
CheckBox2.Parent:=Self;
CheckBox2.Height:=100;
CheckBox2.Width:=200;
CheckBox2.Top:=200;
CheckBox2.Left:=120;

CheckBox3:=TCheckBox.Create(self);
CheckBox3.Parent:=Self;
CheckBox3.Height:=100;
CheckBox3.Width:=200;
CheckBox3.Top:=200;
CheckBox3.Left:=120;

Все равно то же самое...