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!

Button on PaintBox Найти похожие ветки