Перейти к содержимому



Купить ссылку здесь
Фотография
- - - - -

Хелпаните, кто шарит в делфи ?

Форум ZiSMO.biz
помощь срочно

Лучший Ответ Vip, 16 07 2015 - 13:12

А можно упираясь на кнопку, создать программно форму от кнопки ?

procedure TForm1.Button1Click(Sender: TObject);
Var
   MyForm: TForm;
   MyButton : TButton;
begin
   MyForm := TForm.Create(Self);
   MyForm.Caption := 'MyForm';
   MyForm.Position := poScreenCenter;
   MyForm.Width := 500;
   MyForm.Height := 100;

   MyButton := TButton.Create(MyForm);
   MyButton.Left:=40;
   MyButton.Top:=10;
   MyButton.Height:=45;
   MyButton.Parent := MyForm;
   MyForm.Show;
end;
Перейти к сообщению

11
Сообщений в теме: 11

OFFLINE Отправлено

Discozeka
группа пользователя

    Продвинутый

  • Cообщений: 6 116
  • Поинты: 1 654
  • Предупреждений: 0
  • Онлайн:61д 13ч 17м
136

В общем, мне нужно, чтобы в 1-й форме создавалась кнопка при нажатии Создать.

 

Как я понял код выглядит так:

 

Begin

Tbutton.Create(Form1);

 

Далее на основу ложится 1я форма:

 

Parent:=Form1;

 

А после уже указываю его выличину это высота, ширина и т.д.

 

У меня загвоздка в том, что не создает кнопку, а создает диалоговое окно...

В чем может быть проблема?





    • 0
  • Наверх
  • Ответить

OFFLINE Отправлено

Discozeka
группа пользователя

    Продвинутый

  • Cообщений: 6 116
  • Поинты: 1 654
  • Предупреждений: 0
  • Онлайн:61д 13ч 17м
136

АП


    • 0
  • Наверх
  • Ответить

OFFLINE Отправлено

2s2d
группа пользователя

    Новичок

  • Cообщений: 71
  • Поинты: 10
  • Предупреждений: 0
  • Онлайн:13ч 25м
1

В общем, мне нужно, чтобы в 1-й форме создавалась кнопка при нажатии Создать.

Что это значит??? Как это при нажатии создать???  :D С Delphi уже не работал с техникума, а это как лет 5-7, но с уверенностью скажу, что button(то бишь кнопку) можно найти на панели в самом Delphi и поместить её на форму. Если нужно, чтобы происходило какое-то событие по нажатию на кнопку, то соответственно и прописывать событие на кнопке. Пока вопрос вообще не ясен и не логичен..


Сообщение отредактировал 2s2d: 13 07 2015 - 01:53

    • 0
  • Наверх
  • Ответить

OFFLINE Отправлено

Discozeka
группа пользователя

    Продвинутый

  • Cообщений: 6 116
  • Поинты: 1 654
  • Предупреждений: 0
  • Онлайн:61д 13ч 17м
136

Что это значит??? Как это при нажатии создать???  :D С Delphi уже не работал с техникума, а это как лет 5-7, но с уверенностью скажу, что button(то бишь кнопку) можно найти на панели в самом Delphi и поместить её на форму. Если нужно, чтобы происходило какое-то событие по нажатию на кнопку, то соответственно и прописывать событие на кнопке. Пока вопрос вообще не ясен и не логичен..

Ну исходя из кода, видно, что мне необходимо создать программно кнопку.


    • 0
  • Наверх
  • Ответить

OFFLINE Отправлено

server
группа пользователя

    Пользователь

  • Cообщений: 313
  • Друзей:5
  • Поинты: 9
  • Предупреждений: 0
  • Онлайн:2д 1ч 33м
15

просто в свойствах скрываешь кнопку, а при нажатие -  меняешь свойство на активное, и кнопка появляется 

procedure TForm1.Button1Click(Sender: TObject);
begin

  Button2.Visible:=true;


end;

    • 0
  • Наверх
  • Ответить

OFFLINE Отправлено

Discozeka
группа пользователя

    Продвинутый

  • Cообщений: 6 116
  • Поинты: 1 654
  • Предупреждений: 0
  • Онлайн:61д 13ч 17м
136

 

просто в свойствах скрываешь кнопку, а при нажатие -  меняешь свойство на активное, и кнопка появляется 

procedure TForm1.Button1Click(Sender: TObject);
begin

  Button2.Visible:=true;


end;

Увы, но нет...

Если мне нужно сперва 1 кнопку сделать, потом вторую ?

Какой код посоветуешь ?

Исходный код:

 

Btn:=TButton.Create(Form1);
Btn.Parent:=Form1;
Btn.Caption:= lbledt1.Text;
Btn.Left:=40;
Btn.Top:=60;
Btn.Height:=45;
Form2.Close;

    • 0
  • Наверх
  • Ответить

OFFLINE Отправлено

ononis
группа пользователя

    Накрутка всего FREE >> http://vk.cc/4oR0M6

  • Cообщений: 579
  • Друзей:9
  • Поинты: 7
  • Предупреждений: 50
31

win api учи


    • 0
  • Наверх
  • Ответить

OFFLINE Отправлено

Gluck
группа пользователя

    Продам аккаунты актив вк цена 3р 1 аккаунт

  • Cообщений: 8 743
  • Поинты: 956
  • Предупреждений: 60
141

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


    • 0
  • Наверх
  • Ответить

OFFLINE Отправлено

Vip
группа пользователя

    :)

  • Cообщений: 2 773
  • Друзей:7
  • Поинты: 404
  • Предупреждений: 0
  • Онлайн:90д 17ч 49м
321
procedure TForm1.Button1Click(Sender: TObject);
var
    MyButton : TButton;
begin
    MyButton := TButton.Create(Application);
    MyButton.Parent := Form1;


    MyButton.Left:=40;
    MyButton.Top:=60;
    MyButton.Height:=45;
end;

    • 0
  • Наверх
  • Ответить

OFFLINE Отправлено

Discozeka
группа пользователя

    Продвинутый

  • Cообщений: 6 116
  • Поинты: 1 654
  • Предупреждений: 0
  • Онлайн:61д 13ч 17м
136
procedure TForm1.Button1Click(Sender: TObject);
var
    MyButton : TButton;
begin
    MyButton := TButton.Create(Application);
    MyButton.Parent := Form1;


    MyButton.Left:=40;
    MyButton.Top:=60;
    MyButton.Height:=45;
end;

А можно упираясь на кнопку, создать программно форму от кнопки ?

 

 

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

Нах мне кнопка невидимая ? Я вроде написал, что мне нужно создать кнопку программно. Читай внимательно.


    • 0
  • Наверх
  • Ответить

OFFLINE Отправлено   Лучший Ответ

Vip
группа пользователя

    :)

  • Cообщений: 2 773
  • Друзей:7
  • Поинты: 404
  • Предупреждений: 0
  • Онлайн:90д 17ч 49м
321

А можно упираясь на кнопку, создать программно форму от кнопки ?

procedure TForm1.Button1Click(Sender: TObject);
Var
   MyForm: TForm;
   MyButton : TButton;
begin
   MyForm := TForm.Create(Self);
   MyForm.Caption := 'MyForm';
   MyForm.Position := poScreenCenter;
   MyForm.Width := 500;
   MyForm.Height := 100;

   MyButton := TButton.Create(MyForm);
   MyButton.Left:=40;
   MyButton.Top:=10;
   MyButton.Height:=45;
   MyButton.Parent := MyForm;
   MyForm.Show;
end;

    • 1
  • Наверх
  • Ответить

OFFLINE Отправлено

WeAn
группа пользователя

    Активный

  • Cообщений: 1 144
  • Поинты: 4
  • Предупреждений: 1
  • Онлайн:35д 12ч 19м
10

зачем тебе дельфи, это го*но каменного века. Лучше учи c# или java...


Сообщение отредактировал WeAn: 16 07 2015 - 13:14

    • 0
  • Наверх
  • Ответить



Напишите свое сообщение