|
Компьютерный форум OSzone.net » Программирование, базы данных и автоматизация действий » Программирование и базы данных » Delphi - Как создать кнопку на форме |
|
Delphi - Как создать кнопку на форме
|
Новый участник Сообщения: 6 |
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(Form1); Button1.Parent:=Form1; Button1.Visible:=true; end. Почему данный код не создаёт кнопку на форму? |
|
Отправлено: 16:59, 23-05-2009 |
Ветеран Сообщения: 878
|
Профиль | Сайт | Отправить PM | Цитировать VovanZ, отличное название темы. Очень информативное.
По существу,попробуйте указать положение (Left&Top) элемента и добавить следующую строчку Form1.InsertControl(Button1); |
Отправлено: 17:25, 23-05-2009 | #2 |
Для отключения данного рекламного блока вам необходимо зарегистрироваться или войти с учетной записью социальной сети. Если же вы забыли свой пароль на форуме, то воспользуйтесь данной ссылкой для восстановления пароля. |
Новый участник Сообщения: 6
|
Профиль | Отправить PM | Цитировать 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 |
Последний раз редактировалось Drongo, 23-05-2009 в 19:58. Отправлено: 17:32, 23-05-2009 | #3 |
Ветеран Сообщения: 1133
|
Профиль | Отправить PM | Цитировать VovanZ, я не совсем понял, чего вы хотите добиться, если просто создать кнопку, то так:
|
------- Отправлено: 17:39, 23-05-2009 | #4 |
Новый участник Сообщения: 6
|
Профиль | Отправить PM | Цитировать Спасибо, я разобрался, тему можно закрыть
|
|
Отправлено: 17:42, 23-05-2009 | #5 |
![]() |
Участник сейчас на форуме |
![]() |
Участник вне форума |
![]() |
Автор темы |
![]() |
Сообщение прикреплено |
| |||||
Название темы | Автор | Информация о форуме | Ответов | Последнее сообщение | |
Интерфейс - [решено] как создать в панели задач кнопку "Свернуть все окна"? | woldemarok | Microsoft Windows 7 | 20 | 23-03-2010 23:25 | |
Разное - как сделать кнопку пуска анимированной как windows 7 | krazy | Оформление Windows XP | 5 | 22-07-2009 00:44 | |
Delphi - Как отключить все Checkbox'ы на форме? | R.M.L | Программирование и базы данных | 9 | 08-06-2009 00:59 | |
Прочие БД - Страница доступа Access 2003. Как создать кнопку на формирование запроса? | tarasov.evgeny | Программирование и базы данных | 5 | 05-02-2009 01:55 | |
[решено] Как назначить 2-м кнопкам на форме разное действие | vagner_HATE | Вебмастеру | 8 | 15-10-2007 17:03 |
|