|
|
Регистрация Восстановить пароль |
Повторная активизация e-mail |
Регистрация | Задать вопрос |
Заплачу за решение |
Новые сообщения |
Сообщения за день |
Расширенный поиск |
Правила |
Всё прочитано |
|
Опции темы | Поиск в этой теме |
23.05.2009, 17:11 | #1 |
Веб-разработчик
Форумчанин
Регистрация: 23.05.2009
Сообщений: 279
|
Почему данный код не создаёт кнопку на форме
unit Unit1;
interface uses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, StdCtrls; type TForm1 = class(TForm) private { Private declarations } public { Public declarations } end; var Form1: TForm1; Button1: TButton; implementation {$R *.dfm} begin Button1:=StdCtrls.TButton.Create(Fo rm1); Button1.Parent:=Form1; Button1.Visible:=true; end. Почему данный код не создаёт кнопку на форму? В следующий раз темы с названием типа "Дурацкий вопрос" будут просто удаляться. Нужно читать правила раздела! Последний раз редактировалось mihali4; 23.05.2009 в 17:22. |
23.05.2009, 17:26 | #2 |
Регистрация: 19.05.2009
Сообщений: 3
|
Попробуйте так:
Код:
|
23.05.2009, 17:31 | #3 |
Веб-разработчик
Форумчанин
Регистрация: 23.05.2009
Сообщений: 279
|
unit Unit1;
interface uses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, StdCtrls; type TForm1 = class(TForm) private { Private declarations } public { Public declarations } end; var Form1: TForm1; Button1: TButton; implementation {$R *.dfm} begin Button1:=StdCtrls.TButton.Create(Fo rm1); Button1.Parent:=Form1; Button1.left:=100; Button1.top:=100; Button1.height:=100; Button1.width:=100; Button1.Visible:=true; Button1.Parent := Form1; end. Вот так - не помагает; unit Unit1; interface uses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, StdCtrls; type TForm1 = class(TForm) private { Private declarations } public { Public declarations } end; var Form1: TForm1; Button1: TButton; implementation {$R *.dfm} begin Button1:=StdCtrls.TButton.Create(Fo rm1); Button1.Parent:=Form1; Button1.left:=100; Button1.top:=100; Button1.height:=100; Button1.width:=100; Button1.Visible:=true; Button1.Parent := Form1; Form1.InsertControl(Button1); end. Вот так - EAccseccViolation |
23.05.2009, 17:34 | #4 |
Регистрация: 19.05.2009
Сообщений: 3
|
Пишете в обработчике события Формы (OnCreate);
Код:
|
23.05.2009, 17:36 | #5 |
Веб-разработчик
Форумчанин
Регистрация: 23.05.2009
Сообщений: 279
|
Messa, а как эту процедуру вызывать?
|
23.05.2009, 17:39 | #6 |
Регистрация: 19.05.2009
Сообщений: 3
|
Щелкните 2 раза по окну (Form1) или выделите Form1 и в Object Inspector на вкладке Events найдите событие OnCreate
|
23.05.2009, 17:41 | #7 |
Веб-разработчик
Форумчанин
Регистрация: 23.05.2009
Сообщений: 279
|
А как сделать чтобы она исполнялась? Или она сама исполняется?
|
23.05.2009, 17:42 | #8 |
Веб-разработчик
Форумчанин
Регистрация: 23.05.2009
Сообщений: 279
|
Спасибо, я разобрался, тему можно закрыть
|
Похожие темы | ||||
Тема | Автор | Раздел | Ответов | Последнее сообщение |
Почему не компилируется код? | subsonic | Общие вопросы Delphi | 2 | 02.03.2009 08:23 |
Почему мой код не завершает процесс? | Stilet | Win Api | 1 | 24.07.2008 20:28 |
Как убрать (спрятать) кнопку Maximize на форме чтобы остались только Minimize и Close | athlant64 | Общие вопросы Delphi | 15 | 11.11.2007 17:08 |
Почему не работает код? | Kashp | Общие вопросы Delphi | 3 | 09.08.2007 17:33 |