Форум программистов
 

Восстановите пароль или Зарегистрируйтесь на форуме, о проблемах и с заказом рекламы пишите сюда - alarforum@yandex.ru, проверяйте папку спам!

Вернуться   Форум программистов > IT форум > Помощь студентам
Регистрация

Восстановить пароль

Купить рекламу на форуме - 42 тыс руб за месяц

Ответ
 
Опции темы Поиск в этой теме
Старый 17.04.2011, 18:09   #1
Денис999
Форумчанин
 
Регистрация: 24.05.2010
Сообщений: 124
По умолчанию Forma Delphi 7

Подскажите чего не работает форма на Делфи 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.
Денис999 вне форума Ответить с цитированием
Старый 18.04.2011, 10:12   #2
bondleha
Пользователь
 
Регистрация: 19.04.2010
Сообщений: 10
По умолчанию

form1.caption:='Denis'; может Form1 с большой буквы написать!
bondleha вне форума Ответить с цитированием
Старый 18.04.2011, 10:28   #3
GetMax
Форумчанин
 
Регистрация: 21.10.2010
Сообщений: 588
По умолчанию

Цитата:
Подскажите чего не работает форма на Делфи 7!
Форма то работает, а вот компоненты на ней не создаются. Пробуй так
Код:
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;
  Button1.Caption:='Btn1';
  Button1.Name:='Btn';
  Button1.Parent:=Self;

  CheckBox1:=TCheckBox.Create(self); //?i?o?ae?cao?y ia'?eoo oeio i?oea
  CheckBox1.Height:=100;
  CheckBox1.Width:=200;
  CheckBox1.Top:=200;
  CheckBox1.Left:=120;
  CheckBox1.Caption:='Chb1';
  CheckBox1.Name:='Chbox1';
  CheckBox1.Parent:=Self;

  CheckBox2:=TCheckBox.Create(self);
  CheckBox2.Height:=100;
  CheckBox2.Width:=200;
  CheckBox2.Top:=200;
  CheckBox2.Left:=180;
  CheckBox2.Caption:='Chb2';
  CheckBox2.Name:='Chbox2';
  CheckBox2.Parent:=Self;

  CheckBox3:=TCheckBox.Create(self);
  CheckBox3.Height:=100;
  CheckBox3.Width:=200;
  CheckBox3.Top:=200;
  CheckBox3.Left:=240;
  CheckBox3.Caption:='Chb3';
  CheckBox3.Name:='Chbox3';
  CheckBox3.Parent:=Self;

 form1.caption:='Denis';
end;

end.
Пользователь не знает, чего он хочет, пока не увидит то, что он получил.
Для благодарностей WMR R145235935681
GetMax вне форума Ответить с цитированием
Ответ


Купить рекламу на форуме - 42 тыс руб за месяц



Похожие темы
Тема Автор Раздел Ответов Последнее сообщение
kontaktnaya forma atur PHP 1 23.01.2011 14:46
forma.otvet1.value == "4" не сравнивает значение поля с цифрой fs444 JavaScript, Ajax 3 06.12.2010 12:09
Rad Studio 2011 XE: новое в Delphi, C++ Builder, RadPHP и Delphi Prism savva-paladin Софт 18 02.10.2010 20:24
Не запускается макрос Forma Romuald Microsoft Office Excel 3 03.03.2009 12:41
Как открыть БД, написанную в Delphi если нf другой машине Delphi нет? dagarik БД в Delphi 7 22.10.2007 17:54