Скачать: CL | DM;

Подскажите компонент проверенный. Кнопка с меню.   Найти похожие ветки 

← →
DVM ©   (2007-03-30 12:33) [0]

Требования:
1) Должна получать фокус ввода (не потомок GraphicControl)
2) Автоматически следовать стилям XP
3) Все остальное как у TButton
4) Бесплатный с исходниками.

---

← →
DVM ©   (2007-03-30 12:34) [1]

Да еще, желательно не из состава монстроидальных проектов типа джеди

---

← →
ЮЮ ©   (2007-03-30 12:40) [2]

TButton + TPopupMenu + строчка кода в TButton.OnClick совсем не устраивают? Только компонент, не меньше?

---

← →
Игорь Шевченко ©   (2007-03-30 12:46) [3]

Я свое писал, только без XP разумеется

---

← →
DVM ©   (2007-03-30 12:47) [4]

> ЮЮ ©   (30.03.07 12:40) [2]

Да я так пока временно и сделал.
Не совсем то, что надо, точнее оно не смотрится - кнопка остается в ненажатом положении и стрелочки на ней нету.
На торри тоже ничего подходящего не нашел. В основном нет поддержки стилей.

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

---

← →
Ketmar ©   (2007-03-30 12:48) [5]

jedi. монстр, зато есть. главное -- не пытаться из джедаев "выкоцать" только нужный компонент. %-)

---

← →
DVM ©   (2007-03-30 12:48) [6]

> Игорь Шевченко ©   (30.03.07 12:46) [3]

Придется и мне тогда написать свой.

---

← →
clickmaker ©   (2007-03-30 12:51) [7]

> кнопка остается в ненажатом положении

SendMessage(Button.Handle, BM_SETSTATE, BST_PUSHED, 0);

---

← →
DVM ©   (2007-03-30 12:55) [8]

> clickmaker ©   (30.03.07 12:51) [7]

Точно! Спасибо.

Точнее надо так:

procedure TForm1.Button1Click(Sender: TObject);
begin
 SendMessage(Button1.Handle, BM_SETSTATE, BST_PUSHED, 0);
 PopupMenu1.Popup(x,y);
 SendMessage(Button1.Handle, BM_SETSTATE, 0, 0);
end;

Ну и взять вместо TButton TBitButton и стрелочку тогда тоже можно

---

Страницы: 1 вся ветка

Скачать: CL | DM;



Память: 0.46 MB
Время: 0.028 c