Какая есть компонент-кнопка

← →
wesaaaa (2007-07-02 15:47) [0]

Чтобы когда нажимаешь, она становилась "нажатой", нажать еще раз -- "отжатой"?

← →
clickmaker © (2007-07-02 15:51) [1]

TSpeedButton
впрочем и обычный TButton можно заставить залипать

← →
DimaBr © (2007-07-02 16:01) [2]

TToolButton с той же оперы

← →
имя (2007-07-02 16:17) [3]

Удалено модератором

← →
wesaaaa (2007-07-02 16:20) [4]

> clickmaker © (02.07.07 15:51) [1]
а как?

← →
clickmaker © (2007-07-02 16:22) [5]

SpeedButton.Down

Button.Perform(BM_SETSTATE, BST_PUSHED, 0); / Button.Perform(BM_SETSTATE, 0, 0);

← →
Amoeba © (2007-07-02 17:32) [6]

TSpeedButton:
св-ва
GroupIndex - установить не в 0
и AllowAllUp - установить в True

← →
ASoft (2007-07-03 07:21) [7]

А для TToolButton, по моему, кроме прочего, нужно ставить между ними сепаратор, чтоб корректно нажимались и отжимались :)

> ASoft (03.07.07 07:21) [7]
>
> А для TToolButton, по моему, кроме прочего, нужно ставить
> между ними сепаратор, чтоб корректно нажимались и отжимались
> :)
>

Не сочиняй!

← →
ASoft (2007-07-04 16:19) [9]

> Amoeba © (03.07.07 10:28) [8]

Просто, вспомнилось кое-что, связанное с TToolButton, пришлось освежить память :) Главное, оказалось, это стиль.. Тем не менее и о сепараторе тоже велась речь...
Description When an unbroken sequence of adjacent tool buttons each has its Grouped property set to true and Style set to tbsCheck, then no more than one of the buttons can be selected at the same time. Selecting a grouped button at runtime unselects the other buttons in its group. To create distinct groups of buttons within a toolbar, separate the groups with any of the following: tool buttons whose Grouped property is false, tool buttons whose Style property is not tbsCheck (tbsSeparator and tbsDivider buttons are useful for this), or controls other than tool buttons.

Попробуй, точно сработает не только на кнопки(Но и на картинки-кнопки):
Используй свойство TAG (оно есть у любого объекта). Изначально оно равно нулю. Покажу пример на рисованной кнопке типа TImage:

Procedure Image1OnClick(Sender: TObject);
begin
if Image1.tag=0 then
begin
Image1.tag:=1;
Image1.picture.loadfromfile("...\textures\but1-1.bmp"); {Здесь пишешь путь к картинке в "нажатом" состоянии}
end else
begin
Image1.tag:=0;
Image1.picture.loadfromfile("...\textures\but1-0.bmp");
{Здесь пишешь путь к картинке в "отжатом" состоянии}
end;
end;

Какая есть компонент-кнопка Найти похожие ветки