Главная страница
Top.Mail.Ru    Яндекс.Метрика
Текущий архив: 2003.03.06;
Скачать: CL | DM;

Вниз

Круглая кнопка   Найти похожие ветки 

 
Rina   (2003-02-24 23:50) [0]

Привет! Как можно создать круглую кнопку не используя TImage?


 
multik ©   (2003-02-25 00:09) [1]

Попробуй следующее.
1 Способ
Использовать Shape. А в инспекторе выбрать в разделе shape равный stCircle
Получится полное гов.. Но вариант.
2 Способ
ИспользоватьSpeedButton. А в инспекторе выбрать в разделе glyph какой-нибудь рисунок, похожий на круглое что-то. А если flat поставить как true, то получиться прикольно.
Но и в 1 и во 2 способе в событие onclik вставить нужный код или чего-то там.


 
jack128 ©   (2003-02-25 03:28) [2]

3 Способ
Использовать регионы и получить полценную круглую(треугольную, в виде бублика - по желанию) кнопку (SetWindowRgn + F1)


 
Nemo ©   (2003-02-25 03:49) [3]

А можно пример?


 
jack128 ©   (2003-02-25 04:09) [4]

var EllipseRgn : THandle;

procedure TForm1.Button2Click(Sender: TObject);
begin
with Button1 do begin
EllipseRgn:=CreateEllipticRgn(Width div 4, Height div 4, 3*Width div 4, 3*Height div 4);
SetWindowRgn(Handle, EllipseRgn, True);
end;
end;

procedure TForm1.FormDestroy(Sender: TObject);
begin
DeleteObject(EllipseRgn);
end;

кроме того необходимо ещё и отрисовать кнопку при нажитии и отжатии, но это уже сам..



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

Текущий архив: 2003.03.06;
Скачать: CL | DM;

Наверх




Память: 0.47 MB
Время: 0.04 c
6-17256
Junior
2003-01-15 14:31
2003.03.06
Как организовать пинг в отдельном потоке?


6-17221
Anton
2003-01-16 17:27
2003.03.06
Как программно получить доступ к вложениям электронной почты


3-16921
RDA
2003-02-15 21:21
2003.03.06
Проблемы при DragDrop в DBTreeList


3-16906
@Ujin
2003-02-14 23:42
2003.03.06
Что выбрать для создания отчетов БД?


14-17291
SPeller
2003-02-11 19:47
2003.03.06
---|Ветка была без названия|---