Волшебные батоны....

← →
C@N © (2006-08-28 11:30) [0]

Есть такая волшебная кнопа называется SpeedButton (можно и RXSpeedButton) у ейных есть свойство Down:= True/false, но оно работает только для кнопок обЪединенных в GroupIndex <>0 ; и батон при клике нуникак отжиматься в ненадавленное состояние =(
Вот есть желание или даже необходимость, тк полезный батон выйдет =) чтоб у SpeedButton появилось типа Downed, которое не зависит от GroupIndex, и типа как переключалка работал-бы.... если ненадавлен то надавленным становится, и наоборот...
С чего начать не знаю ((( ибо компоненты никогда не писал....
Просмотр Buttons.Pas не привел к плодотворному ((( может кто сталкивался с такой поблемой =)))

← →
Наиль © (2006-08-28 11:35) [1]

Попробуй проделать то же самое при AllowAllUp:=true;

← →
Плохиш © (2006-08-28 11:37) [2]

AllowAllUp

← →
Elen © (2006-08-28 11:38) [3]

Может тебе подойдет что нибудь типа :

unit Unit1; interface uses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, ExtCtrls; type TForm1 = class(TForm) Panel1: TPanel; procedure Panel1Click(Sender: TObject); private { Private declarations } public { Public declarations } end; var Form1: TForm1; implementation {$R *.dfm} procedure TForm1.Panel1Click(Sender: TObject); begin panel1.Tag:=not panel1.Tag; if panel1.Tag<>0 then panel1.BevelOuter:=bvRaised else panel1.BevelOuter:=bvLowered ; end; end.

← →
C@N © (2006-08-28 11:40) [4]

to [3] да типа этого, но со SpeedButton хочется )))

← →
C@N © (2006-08-28 11:46) [5]

Хек!!! а раньше не получалось... спасибо ))) за AllowAllUp:=true;
Огроменное...)))
Но всетаки хочется свой компонент )))ладно потом разберусь)))

гы гы гы [6] это я умею.... )))

Волшебные батоны.... Найти похожие ветки