Имя пользователя:
Пароль:  
Помощь | Регистрация | Забыли пароль?  | Правила  

Компьютерный форум OSzone.net » Программирование, базы данных и автоматизация действий » Программирование и базы данных » Delphi - Как создать кнопку на форме

Ответить
Настройки темы
Delphi - Как создать кнопку на форме

Новый участник


Сообщения: 6
Благодарности: 0

Профиль | Отправить PM | Цитировать


Изменения
Автор: Drongo
Дата: 23-05-2009
Код: Выделить весь код
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

 

Аватара для XCodeR

Ветеран


Сообщения: 878
Благодарности: 53

Профиль | Сайт | Отправить PM | Цитировать


VovanZ, отличное название темы. Очень информативное.

По существу,попробуйте указать положение (Left&Top) элемента и добавить следующую строчку
Form1.InsertControl(Button1);

Отправлено: 17:25, 23-05-2009 | #2



Для отключения данного рекламного блока вам необходимо зарегистрироваться или войти с учетной записью социальной сети.

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


Новый участник


Сообщения: 6
Благодарности: 0

Профиль | Отправить 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
Благодарности: 581

Профиль | Отправить PM | Цитировать


VovanZ, я не совсем понял, чего вы хотите добиться, если просто создать кнопку, то так:
читать дальше »
Код: Выделить весь код
unit Unit1;

interface

uses
  Classes, Controls, Forms, StdCtrls;

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

var
  Form1: TForm1;
  Button1: TButton;

implementation

{$R *.dfm}

procedure TForm1.FormCreate(Sender: TObject);
begin
  Button1 := TButton.Create(Form1);
  with Button1 do begin
    Left := 50;
    Width := 100;
    Top := 50;
    Height := 25;
    Caption := 'Кнопка';
    Parent := Form1;
  end;
end;

end.

-------
Книги нужны, чтобы напоминать человеку, что его оригинальные мысли не так уж новы... Авраам Линкольн.


Отправлено: 17:39, 23-05-2009 | #4


Новый участник


Сообщения: 6
Благодарности: 0

Профиль | Отправить PM | Цитировать


Спасибо, я разобрался, тему можно закрыть

Отправлено: 17:42, 23-05-2009 | #5



Компьютерный форум OSzone.net » Программирование, базы данных и автоматизация действий » Программирование и базы данных » Delphi - Как создать кнопку на форме

Участник сейчас на форуме Участник сейчас на форуме Участник вне форума Участник вне форума Автор темы Автор темы Шапка темы Сообщение прикреплено

Похожие темы
Название темы Автор Информация о форуме Ответов Последнее сообщение
Интерфейс - [решено] как создать в панели задач кнопку "Свернуть все окна"? 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




 
Переход