Текущий архив: 2003.03.03;
Скачать: CL | DM;
Вниз
Button on PaintBox Найти похожие ветки
← →
Delphi5.01 (2003-02-17 14:55) [0]Zdarvstvuite!
U mena ochen interesni vopros, na dnax pisal kmompnent na osnove PaintBox-a, i vdrug prishla v golovu misl a mojno li k komponentu podsoedenit button, nu chtob na PaintBox-e vlevom verxnem ugle bil button so vsemi svoimi svoistvami, otvet: konechno da! no vot kak eto mojno osushestvit ne dogadalsa, "Create"-om ne poluchilos, mojet chto nepravilno sdelal, esli kto znaet to podskajite pojaluisata.
← →
MBo (2003-02-17 15:01) [1]paintbox - не windowcontrol, не может быть родителем кнопки
← →
Delphi5.01 (2003-02-17 17:47) [2]nu a esli scrollbar, ved sushestvuet richedit?
spasibo.
← →
MBo (2003-02-17 17:58) [3]не уловил, при чем тут scrollbar и richedit?
Разницу между WindowControl и GraphicControl понимаешь?
← →
Delphi5.01 (2003-02-17 18:10) [4]Net.
A cto kasaetsa ScrollBara to vot chto ia xocu sdelat, ia xochu k paintboxy pricepit scrollbar, kak u richedita. ne sozdovaje mne novi skrol s nula!
Spasibo.
← →
Delphi5.01 (2003-02-18 06:57) [5]Tak gde mne mojno naiti atvet na moi vopros? nu ili infu o WindowControl и GraphicControl?
Spasibo.
← →
MBo (2003-02-18 07:20) [6]В книжках по Дельфи и в хелпе.
TGraphicControl не имеет дескриптора окна и не может быть родителем других контролов (Parent у TControl должен быть наследником TWindowControl).
← →
Delphi5.01 (2003-02-18 16:29) [7]Bolshoe Spasibo!
← →
Delphi5.01 (2003-02-20 19:22) [8]Da, a esli vzat za Bazovi komponent tWinControl, togda vozmojno eto sdelat?
← →
MBo (2003-02-21 07:14) [9]TScrollingWinControl, вероятно, будет удобнее в качастве предка.
← →
Alex44 (2003-02-21 10:12) [10]ScrollBar nel"zya, t.k. eto est" window. Button---skol"ko ugodno, no TOL"KO svoyu sobstvennuyu, kak chast" PaintBox"a. (V PaintBox"e otslezhivat" MouseDown/Move/Up i risovat" pod-pryamougol"nik, rabotayushij kak knopka. Mozhno vydrat" iz TSpeedButton.)
← →
Delphi5.01 (2003-02-21 11:44) [11]Vso Ok no poluchaetsa tak chto pri sozdanii novogo komponenta nujno sozavat ego s nula! no Delphi daiot vozmojnost sozdat novi kompoent na osnove uje gotvix komponentov, kak naprimer, RichEdit, do nego bil Memo, emu dobavili raznie efekti i sozdali RichEdit, no memo v svoiom rode bil sozdan esho bollee rane sozdanom komponente.
tak vot u mena vopros ochen pramoi, tipa sozdal ia komponent kotori vivodit tekst s raznimi efektami,(na baze PaintBox-a) vso ok no, u etogo komponenta doljen bit scrollbar, snachala xotel sozdat sam ego v ruchnuiu, no potom peredumal takak, v knige Delphi6 napisano chto vozmojno sozdanie slojnix komponentov, est primer, komponent na baze Labela i Timera, vso rabotaet. izucha etu infu ia popitalsa pricepit scrollbar k PaintBox-u i poluchilos, v svoistvax poiavilsa ScrollBar, so vsemi svoimi svoistvami, no sam scrollbar ne viden.
drugim metodom vozmojno priceplenie vneshnix scrollbarov k moemu komponentu, analogichno PopUpMenu. Etot medod podoidot na krainak, no xochetsa chtob komponent uje soderjal ScrollBar.
Iz vsego skazanogo, sut problemi takova, u komponenta (na baza PaintBox-a) est ScrollBar v svoistvax, no sam scrollBar ne viden, kak mojno osushestvit etu problemu.
P.S.
...
Property ScrollBar: TScrollBar read FScrollBar;
...
Constructor Create;
begin
...
FScrollBar:=TScrollBar.Create(Self);
...
end;
← →
Delphi5.01Reshenie (2003-02-21 12:33) [12]A vot i reshenie, sluchaino soobrazil! i glavnoe rabotaet na 5!
Privoju primer, mojet komuto ponadobitsa!
FScrollBar: TScrollBar;
...
Property ScrollBar: TScrollBar read FScrollBar;
...
Constructor Create;
begin
...
FScrollBar:=TScrollBar.Create(Self);
FScrollBar.Name:="ScrollBar";
if Owner is TForm then
FScrollBar.Parent:=Owner as TForm;
...
end;
glavnoe to chto analogichno mojno k komponentu pricepit chto ugodno (imeu v vidu luboi komponent)!
P.S. Vsem bolshoe spasibo!
Страницы: 1 вся ветка
Текущий архив: 2003.03.03;
Скачать: CL | DM;
Память: 0.46 MB
Время: 0.009 c
