 |
Помощь по созданию кнопок - Вопросы и ответы, обсуждения - Ваши вопросы по Pascal/Delphi только в данном разделе |
07.05.2013, 19:08
|
#1
|
|
|
|
Разведчик
|
 Регистрация: 19.03.2010
 Сообщений: 12
 Популярность: 143
 Сказал(а) спасибо: 23
Поблагодарили 3 раз(а) в 3 сообщениях
|
Помощь по созданию кнопок
Нужно сделать в программе ( вот она) добавление новых полей и кнопок, с заданными параметрами.
Для примера:
Нужно добавить поле Edit[num] и Button[num]
присвоить к кнопке некоторые свойства при создании и нужно будет добавить Edit[num] и button[num] в ещё одно поле (которое сохраняет и загружает данные. Если не понятно - вы можете посмотреть в исходнике что там такое (написано на delphi XE3))
num, я полагаю нужно добавить в глобальные переменные и уже оттуда плясать. Ладно, кому что не понятно - прошу в комменты
Так что вот... Нужна ваша помощь... Может гугл мне что-нибудь и даст, но я не смог найти по запросом "программное создание кнопки с заданными свойствами"
|
|
|
07.05.2013, 20:26
|
#2
|
|
|
|
Старший сержант
|
 Регистрация: 25.12.2011
 Сообщений: 191
 Популярность: 5259
 Сказал(а) спасибо: 31
Поблагодарили 235 раз(а) в 135 сообщениях
|
Re: Помощь по созданию кнопок
это называется динамическое создание, а не программное. Так ты должен найти.
________________
Для просмотра ссылок или изображений в подписях, у Вас должно быть не менее 10 сообщение(ий). Сейчас у Вас 0 сообщение(ий).
|
|
|
08.05.2013, 11:14
|
#3
|
|
|
|
Разведчик
|
 Регистрация: 22.11.2012
 Сообщений: 2
 Популярность: 464
 Сказал(а) спасибо: 0
Поблагодарили 22 раз(а) в 13 сообщениях
|
Re: Помощь по созданию кнопок
программное создание кнопки
Код:
var btn:TButton;
begin
btn:=Tbutton.create(Form1);
with btn do
begin
width:=50;
height:=20;
top:=123;
left:=70;
parent:=Form1;
visible:=true;
onclick:=Button1Click;
tag:=num;
caption:=inttostr(num)+' кнопка';
end;
inc(num);
end;
с эдитом и другими визуальными компонентами аналогично
и в зависимости от Tag кнопки в обработчике клика по ней (то есть в Button1Click ) совершать какие то действия
т.е
брать (Sender as Tbutton).Tag и от него "плясать"
|
|
|
Пользователь сказал cпасибо:
|
|
08.05.2013, 17:58
|
#4
|
|
|
|
Рыцарь
|
 Регистрация: 12.04.2009
 Сообщений: 394
 Популярность: 47903
 Сказал(а) спасибо: 515
Поблагодарили 1,124 раз(а) в 430 сообщениях
|
Re: Помощь по созданию кнопок
Дополню, что объекты в данном случаи удобно описать динамическим массивом, например
MyEdit : array of TEdit;
К каждому элементу массива можно будет обращаться MyEdit[j].Text и тому подобное.
________________
Для просмотра ссылок или изображений в подписях, у Вас должно быть не менее 10 сообщение(ий). Сейчас у Вас 0 сообщение(ий).
В любом из нас спит гений. И с каждым днем все крепче.
Запомните раз и навсегда:= 'Помочь' <> 'Сделайте за меня';
Для просмотра ссылок или изображений в подписях, у Вас должно быть не менее 10 сообщение(ий). Сейчас у Вас 0 сообщение(ий).
|
|
|
Пользователь сказал cпасибо:
|
|
08.05.2013, 20:00
|
#5
|
|
|
|
Разведчик
|
 Регистрация: 19.03.2010
 Сообщений: 12
 Популярность: 143
 Сказал(а) спасибо: 23
Поблагодарили 3 раз(а) в 3 сообщениях
|
Re: Помощь по созданию кнопок
|
|
|
08.05.2013, 21:04
|
#6
|
|
|
|
Рыцарь
|
 Регистрация: 12.04.2009
 Сообщений: 394
 Популярность: 47903
 Сказал(а) спасибо: 515
Поблагодарили 1,124 раз(а) в 430 сообщениях
|
Re: Помощь по созданию кнопок
Это можно нагуглить 
Button1.OnClick:=@Button1Click;
Button[1].OnClick:=@Button1Click;
________________
Для просмотра ссылок или изображений в подписях, у Вас должно быть не менее 10 сообщение(ий). Сейчас у Вас 0 сообщение(ий).
В любом из нас спит гений. И с каждым днем все крепче.
Запомните раз и навсегда:= 'Помочь' <> 'Сделайте за меня';
Для просмотра ссылок или изображений в подписях, у Вас должно быть не менее 10 сообщение(ий). Сейчас у Вас 0 сообщение(ий).
|
|
|
Пользователь сказал cпасибо:
|
|
14.05.2013, 16:49
|
#7
|
|
|
|
Рыцарь-капитан
|
 Регистрация: 14.06.2012
 Сообщений: 511
 Популярность: 7566
 Сказал(а) спасибо: 4
Поблагодарили 181 раз(а) в 88 сообщениях
|
Re: Помощь по созданию кнопок
________________
Хотите как то отблагодарить за помощь?
Не стесняйтесь нажимайте "Спасибо" Для просмотра ссылок или изображений в подписях, у Вас должно быть не менее 10 сообщение(ий). Сейчас у Вас 0 сообщение(ий).
Делаю программы на заказ, по всем вопросам в скайп: Ginrey2
|
|
|
Пользователь сказал cпасибо:
|
|
Ваши права в разделе
|
Вы не можете создавать новые темы
Вы не можете отвечать в темах
Вы не можете прикреплять вложения
Вы не можете редактировать свои сообщения
HTML код Выкл.
|
|
|
Заявление об ответственности / Список мошенников
Часовой пояс GMT +4, время: 12:26.
|
 |