Форум программистов
 

Восстановите пароль или Зарегистрируйтесь на форуме, о проблемах и с заказом рекламы пишите сюда - alarforum@yandex.ru, проверяйте папку спам!

Вернуться   Форум программистов > Delphi программирование > Компоненты Delphi
Регистрация

Восстановить пароль
Повторная активизация e-mail

Купить рекламу на форуме - 42 тыс руб за месяц

Ответ
 
Опции темы Поиск в этой теме
Старый 16.03.2009, 13:57   #1
ArtInt
Форумчанин
 
Аватар для ArtInt
 
Регистрация: 06.03.2009
Сообщений: 583
По умолчанию TsuiArrowButton из пакета SuiPackv4.31

Как работает данная кнопка, документации в справке не обнаружил, где в интернете тоже. Свойство Caption не отображает. Как использовать данный компонент в приложении и для чего он. Кто знает, подскажите пожалуйста или скиньте пример, справку?
Не стыдно чего-то не знать, стыдно не стремиться к знаниям.
ArtInt вне форума Ответить с цитированием
Старый 16.03.2009, 14:15   #2
Kotofff
Участник клуба
 
Аватар для Kotofff
 
Регистрация: 11.01.2009
Сообщений: 1,917
По умолчанию

Это кнопа со стрелкой (Arrow) смотрящей или вверх или вниз (соответствующее свойство есть), у которой небольшая куча событий ... например, MouseContinuouslyDown - если нажали и держим ...
Caption здесь не требуется ... исходя из назначения ...
А в чем проблема ? Что именно непонятно ?
"Заряженному танку в дуло не смотрят" @Dekmer in WoT
Kotofff вне форума Ответить с цитированием
Старый 16.03.2009, 14:37   #3
ArtInt
Форумчанин
 
Аватар для ArtInt
 
Регистрация: 06.03.2009
Сообщений: 583
По умолчанию

Думал, что можно с помощью этой кнопки ниспадающий список для выбора сделать (так как смутило caption).
Сейчас, для этого использую компонент FlatSpeedButton (при клике выводит popupmenu)
Какие еще есть компоненты бесплатные такого же свойства?
Не стыдно чего-то не знать, стыдно не стремиться к знаниям.
ArtInt вне форума Ответить с цитированием
Старый 16.03.2009, 14:50   #4
Kotofff
Участник клуба
 
Аватар для Kotofff
 
Регистрация: 11.01.2009
Сообщений: 1,917
По умолчанию

Можно "научить" выпадать Popup Menu на любом контроле ...
Функция :
Код:
procedure Popup(Sender: TWinControl; pm: TPopupMenu);
var  xPoint: TPoint;
begin
  GetParentForm(TWinControl(Sender)).SendCancelMode(nil);
  pm.PopupComponent := TWinControl(Sender);
  xPoint := Point(-1, TWinControl(Sender).Height);
  with TWinControl(Sender).ClientToScreen(xPoint) do pm.Popup(x, y);
end;
И ,например, ее применение к suiArrowButton :
Код:
procedure TForm1.suiArrowButton1Click(Sender: TObject);
begin
  Popup(TWinControl(suiArrowButton1), PopupMenu1);
end;
Вложения
Тип файла: rar SUI_Popup.rar (6.6 Кб, 9 просмотров)
"Заряженному танку в дуло не смотрят" @Dekmer in WoT

Последний раз редактировалось Kotofff; 16.03.2009 в 14:52.
Kotofff вне форума Ответить с цитированием
Старый 16.03.2009, 14:53   #5
ArtInt
Форумчанин
 
Аватар для ArtInt
 
Регистрация: 06.03.2009
Сообщений: 583
По умолчанию

Спасибо, Kotofff, за разъяснения, наверное в принципе на этом тему можно закрывать...
Не стыдно чего-то не знать, стыдно не стремиться к знаниям.
ArtInt вне форума Ответить с цитированием
Ответ


Купить рекламу на форуме - 42 тыс руб за месяц

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

Расширенный поиск


Похожие темы
Тема Автор Раздел Ответов Последнее сообщение
Как научить TMediaPlayer понимать кодеки из пакета K-Lite Codec Pack? eXe 171 Компоненты Delphi 9 21.08.2009 08:26
Как осуществить передачу и прием пакета c клиента на сервер? IIpopoK Работа с сетью в Delphi 6 07.12.2008 14:10
Создание окна при получение определенного пакета GHOST_Kasper Общие вопросы Delphi 5 06.02.2008 13:01
Сбор и чтение пакета OrdJONY Работа с сетью в Delphi 1 17.09.2007 09:18
Отправка->Распаковка пакета Saxon Работа с сетью в Delphi 10 15.04.2007 20:56