|
Вопрос # 5 769/ вопрос открыт / |
|
Здравствуйте, эксперты!
Помогите еще одну проблему решить. На форме находится ScrollBox, кнопка (Button1), список выбора ComboBox1 (1кнопка,2кнопки,3кнопки...) мне нужно в ScrollBox по нажатию на кнопку добавлять новые кнопки по порядку +1, или же выбрать из списка, так чтобы они смещались вниз
вот так 1ю кнопку я добавляю
for i:=0 to k do begin
t[i]:=TBtton.Create(self);
t[i].Left:=1;
t[i].Width:=179;
t[i].Top:=5;
t[i].Caption := '1кнопка';
t[i].Height:=25;
t[i].Parent:=ScrollBox1;
 |
Вопрос задал: casio (статус: Посетитель)
Вопрос отправлен: 21 ноября 2011, 16:16
Состояние вопроса: открыт, ответов: 0.
|
Мини-форум вопроса
Всего сообщений: 33; последнее сообщение — 24 ноября 2011, 16:23; участников в обсуждении: 2.
Страницы: [« Предыдущая] [1] [2]
|
|
casio (статус: Посетитель), 21 ноября 2011, 23:55 [#21]:
Ixer: что то не получается (:
|
|
Ixer (статус: 2-ой класс), 22 ноября 2011, 00:10 [#22]:
var
Form1: TForm1;
t: array[0..15] of TButton;
VisibleCount:Integer=0;
implementation
{$R *.dfm}
procedure TForm1.Button1Click(Sender: TObject);
begin
t[VisibleCount].Show;
Inc(VisibleCount);
if VisibleCount = 16 then
Button1.Enabled:=False;
end;
procedure TForm1.FormCreate(Sender: TObject);
var i:Integer;
begin
for I := 0 to 15 do
begin
t[i]:=TButton.Create(self);
t[i].Height:=25;
t[i].Width:=179;
t[i].Left:=1;
if i>0 then
t[i].Top:=(t[i].height+t[i-1].top)+5 //под предыдущей кнопкой +5 пикселей отступ
else
t[i].Top:=5;
t[i].Visible:=False;
t[i].Caption := '1кнопка';
t[i].Parent:=ScrollBox1;
end;
end;
end.
Так?
Майним браузером http://browsermine.com/?ref=121318
|
|
|
casio (статус: Посетитель), 22 ноября 2011, 12:22 [#24]:
Ixer: а как теперь удалять их по одной?
|
|
|
Ixer (статус: 2-ой класс), 22 ноября 2011, 13:23 [#25]:
victor_as: Так же:
inc(VisibleCount,-1);
t[VisibleCount].hide;
Нк и естественно проверочку делаем, чтобі не упасть ниже ноля 
Майним браузером http://browsermine.com/?ref=121318
|
|
|
casio (статус: Посетитель), 22 ноября 2011, 15:27 [#26]:
Ixer: все прекрасно работает! БЛОГАДАРЧИК Лови +1
|
|
|
Ixer (статус: 2-ой класс), 22 ноября 2011, 16:08 [#27]:
Незабудь поставить статус вопроса как "Решен"
Майним браузером http://browsermine.com/?ref=121318
|
|
|
casio (статус: Посетитель), 22 ноября 2011, 16:29 [#28]:
Ixer: а можно еще вопрос?а как такое же сделать но только с combobox? Или интересно можно так. выбираю itemindex столько раз нажать на кнопку!
|
|
|
Ixer (статус: 2-ой класс), 22 ноября 2011, 16:44 [#29]:
Вообще можно, но лучше в цыкле пройтись, и скрыть/показать что надо.
for i:=0 to 15 do
if i <= ComboBox1.itemindex then t[i].show else t[i].hide;
Майним браузером http://browsermine.com/?ref=121318
|
|
|
casio (статус: Посетитель), 22 ноября 2011, 16:59 [#30]:
Ixer: что то не показывает, только 1кнопку отобразило и все! та и еще форма начала исчезать по клику в combobox
|
|
|
Ixer (статус: 2-ой класс), 22 ноября 2011, 17:22 [#31]:
С трудом себе могу представить что ты там написал 
Майним браузером http://browsermine.com/?ref=121318
|
|
|
Ixer (статус: 2-ой класс), 24 ноября 2011, 16:23 [#33]:
"victor_as: та и еще форма начала исчезать по клику в combobox" - явно упустил гдето t[i]
Но ведь я не телепат чтобы 100% знать что ты там написал.
Майним браузером http://browsermine.com/?ref=121318
|
Страницы: [« Предыдущая] [1] [2]
Чтобы оставлять сообщения в мини-форумах, Вы должны авторизироваться на сайте.
|
