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

← →
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. монстр, зато есть. главное -- не пытаться из джедаев "выкоцать" только нужный компонент. %-)

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

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

> 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 и стрелочку тогда тоже можно

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