Главная страница
    Top.Mail.Ru    Яндекс.Метрика
Форум: "Основная";
Текущий архив: 2003.03.06;
Скачать: [xml.tar.bz2];

Вниз

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

 
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;
Скачать: [xml.tar.bz2];

Наверх





Память: 0.55 MB
Время: 0.036 c
3-16855
korvin
2003-02-14 14:15
2003.03.06
QReport в несколько столбцов


1-17131
Winni
2003-02-22 15:22
2003.03.06
Как в Делфи вызвать прерывание ? Например, прочесть сектор.


14-17319
Uran
2003-02-17 17:52
2003.03.06
Компонент для построения графиков функции


1-17167
Makhanev A.S.
2003-02-23 16:52
2003.03.06
Filename из TFileStream


1-17016
Charly22
2003-02-21 21:02
2003.03.06
Отображение реестра в TTreeView





Afrikaans Albanian Arabic Armenian Azerbaijani Basque Belarusian Bulgarian Catalan Chinese (Simplified) Chinese (Traditional) Croatian Czech Danish Dutch English Estonian Filipino Finnish French
Galician Georgian German Greek Haitian Creole Hebrew Hindi Hungarian Icelandic Indonesian Irish Italian Japanese Korean Latvian Lithuanian Macedonian Malay Maltese Norwegian
Persian Polish Portuguese Romanian Russian Serbian Slovak Slovenian Spanish Swahili Swedish Thai Turkish Ukrainian Urdu Vietnamese Welsh Yiddish Bengali Bosnian
Cebuano Esperanto Gujarati Hausa Hmong Igbo Javanese Kannada Khmer Lao Latin Maori Marathi Mongolian Nepali Punjabi Somali Tamil Telugu Yoruba
Zulu
Английский Французский Немецкий Итальянский Португальский Русский Испанский