Форум по Delphi программированию

Delphi Sources



Вернуться   Форум по Delphi программированию > Все о Delphi > [ "Начинающим" ]
Ник
Пароль
Регистрация <<         Правила форума         >> FAQ Пользователи Календарь Поиск Сообщения за сегодня Все разделы прочитаны

Ответ
 
Опции темы Поиск в этой теме Опции просмотра
  #1  
Старый 27.09.2009, 18:56
Kara1989 Kara1989 вне форума
Прохожий
 
Регистрация: 05.06.2009
Сообщения: 12
Репутация: 10
По умолчанию скрыть выбранный компонент

господа программисты, у меня возник такой вопрос:
как в дельфи можно скрыть определенный компонент
объясняю:
у меня в форме лежат 10 Button и 1 Edit
пишу любое число (от 1 до 9) и мне надо сделать так, чтобы скрылась та кнопка, у которой число заканчивалась в названии, например:
1 -> button1
2 -> button2
3 -> button3 и т.д.

Заранее буду благодарен!!!
Вложения
Тип файла: rar Новая папка (3).rar (6.7 Кбайт, 0 просмотров)
Ответить с цитированием
  #2  
Старый 27.09.2009, 19:53
Аватар для AleD
AleD AleD вне форума
Активный
 
Регистрация: 21.02.2009
Адрес: г.Краснокаменск
Сообщения: 383
Репутация: 91
По умолчанию

Код:
1
Button1.Visible := false\true;
у всех потомков TControl есть это свойство
__________________
TAleD = class(TUser)
public
function HelpMe(ASubject, ARequest: String): String;
function GiveMeExample(ASubject: String): TStringList;
procedure WriteReview(APost: Integer; ADescription: TStringList);
end;
Ответить с цитированием
  #3  
Старый 27.09.2009, 20:00
Аватар для TOJluK
TOJluK TOJluK вне форума
Местный
 
Регистрация: 25.02.2009
Адрес: Минск
Сообщения: 551
Версия Delphi: 2007
Репутация: 110
По умолчанию

Исходник не смотрел, в каком- нибудь событии пропиши:
Код:
1
TButton(FindComponent('Button' + Edit1.Text)).Visible:= False;
Ответить с цитированием
  #4  
Старый 27.09.2009, 20:03
Аватар для Yurk@
Yurk@ Yurk@ вне форума
Специалист
 
Регистрация: 07.09.2007
Адрес: Украина, г. Днепропетровск
Сообщения: 892
Версия Delphi: 7 + ОгнеПтица
Репутация: выкл
По умолчанию

в событии OnChange своего Edita пишешь:
Код:
1
2
(FindComponent('Button'+Edit1.Text) as TButton).Hide; // скрыть
(FindComponent('Button'+Edit1.Text) as TButton).Show; //показать
__________________
Поживу - увижу, Доживу - узнаю, Выживу - учту.
[P.S.]->Выражая благодарность за помощь - Вы получаете шанс на помощь в следующий раз

Последний раз редактировалось Yurk@, 27.09.2009 в 20:05.
Ответить с цитированием
  #5  
Старый 27.09.2009, 20:25
Kara1989 Kara1989 вне форума
Прохожий
 
Регистрация: 05.06.2009
Сообщения: 12
Репутация: 10
По умолчанию

спасибо всем за участие!!!
Ответить с цитированием
Ответ


Delphi Sources

Опции темы Поиск в этой теме
Поиск в этой теме:

Расширенный поиск
Опции просмотра

Ваши права в разделе
Вы не можете создавать темы
Вы не можете отвечать на сообщения
Вы не можете прикреплять файлы
Вы не можете редактировать сообщения

BB-коды Вкл.
Смайлы Вкл.
[IMG] код Вкл.
HTML код Выкл.
Быстрый переход


Часовой пояс GMT +3, время: 22:15.


 

Сайт

Форум

FAQ

Соглашения

Прочее

 

Copyright © Форум "Delphi Sources" by BrokenByte Software, 2004-2025