Мастера DELPHI (документация, исходники, скачать)

Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG

« предыдущая ветвь | форум | следующая ветвь »

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

wesaaaa © (2007-07-02 15:47:00)
Чтобы когда нажимаешь, она становилась "нажатой", нажать еще раз -- "отжатой"?

DagOT-R (2007-07-05 04:00:00) [1]
Попробуй, точно сработает не только на кнопки(Но и на картинки-кнопки):
Используй свойство TAG (оно есть у любого объекта). Изначально оно равно нулю. Покажу пример на рисованной кнопке типа TImage:

ProcedureImage1OnClick(Sender: TObject);
begin
ifImage1.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;

ASoft (2007-07-04 16:19:00) [2]

> 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.

Amoeba (2007-07-03 10:28:00) [3]

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

Не сочиняй!

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

Amoeba (2007-07-02 17:32:00) [5]
TSpeedButton:
св-ва
GroupIndex - установить не в 0
и AllowAllUp - установить в True

clickmaker (2007-07-02 16:22:00) [6]
SpeedButton.Down

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

wesaaaa (2007-07-02 16:20:00) [7]
> clickmaker © (02.07.07 15:51) [1]
а как?

(2007-07-02 16:17:00) [8]
Удалено модератором

DimaBr (2007-07-02 16:01:00) [9]
TToolButton с той же оперы

clickmaker (2007-07-02 15:51:00) [10]
TSpeedButton
впрочем и обычный TButton можно заставить залипать

Наверх

	« предыдущая ветвь \| форум \| следующая ветвь »