Տուն
Top.Mail.Ru Moscow
Ֆորում: «Գլխավոր»;
Ընթացիկ արխիվը `2002.01.08;
Բեռնել: [xml.tar.bz2];

Down

Ինչպես կարելի է նկարել կտավ, որը պատուհանի միջոցով անցնում է ցանկացած պատուհան Գտնել նմանատիպ մասնաճյուղեր


dimonf   (2001-12-16 17:23) [0]

Մարդիկ, թե ինչպես կարելի է ստեղծել այն, որ իմ տվյալները, որ ես դնում է կտավ, անհետացել է պատուհանի հետ բուռն մոնիտորինգի ժամանակ:
Եվ ինչպես ես կարող եմ դարձնել keystroke գործողություն, եթե ես ստեղծել TPanel ծրագրաշարը:

տիպ
TPreview = դաս (TPanel)
անձնական
գույք Canvas;
պաշտպանված
հասարակություն
constructor Ստեղծեք (AOwner: TComponent); անտեսում;
վերջը.

{TPreview}

կոնստրուկտոր TPreview.Create (AOwner: TComponent);
սկսել
Մնացած Ստեղծեք (AOwner);
Ծնող: = AOwner- ը որպես TWinControl;
BevelInner: = bvNone;
BevelOuter: = bvNone;
Գույնը `= clWhite;
BorderStyle: = bsNone;
վերջը.

ընթացակարգ TForm1.FormPaint (Ուղարկող `TObject);
var R: TRect;
սկսել
MyPrev- ի հետ
սկսել
Canvas.Pen.Width: = 1;
Canvas.Brush.Style: = bsSolid;
Canvas.Font.Size: = 18;
R: = Rect (10,10,100,100);
Canvas.Rectangle (R.Left-1, R.Top-1, R.Right + 1, R.Bottom + 1);
Canvas.TextRect (R, 0,0, "Demos");
վերջը.
վերջը.

ընթացակարգ TForm1.FormCreate (Ուղարկող `TObject);
var R: TRect;
սկսել
MyPrev: = TPreview.Create (Self);
MyPrev.Height: = Form1.Height * 2;
Panel1.Height: = Form1.Height * 2;
MyPrev- ի հետ
սկսել
Canvas.Pen.Width: = 1;
Canvas.Brush.Style: = bsSolid;
Canvas.Font.Size: = 18;
վերջը.
վերջը.

վերջը.



dimonf   (2001-12-16 18:09) [1]

Մարդիկ, ոչ մի մտքեր ???



Էջեր: 1 ամբողջ ճյուղը

Ֆորում: «Գլխավոր»;
Ընթացիկ արխիվը `2002.01.08;
Բեռնել: [xml.tar.bz2];

Up









Հիշողություն `0.55 ՄԲ
Ժամանակը `0.038 գ
1-22151
Koks
2001-12-20 14:06
2002.01.08
MDI -ClientForm- ը


7-22448
STANISLAUS
2001-09-11 15:24
2002.01.08
Տվյալների վրա սկավառակի վրա


1-22059
Լեո ^ Սան
2001-12-19 07:24
2002.01.08
Ո՞վ է աշխատել


1-22238
T2
2001-12-16 07:29
2002.01.08
Որոշել ընտրացանկի տարրերի համարը


1-22162
ԲՖԳ
2001-12-19 20:41
2002.01.08
AVI





afrikaans ալբանական արաբական հայերեն ադրբեջանական Բասկերի Բելառուսի Բուլղարիայի catalan Չինարեն (պարզեցված) Չինարեն (ավանդական) Խորվաթիայի չեխ դանիերեն հոլանդական Անգլերեն
Էստոնիայի filipino ֆիններեն ֆրանսերեն
galician վրացական գերմանական հունարեն haitian Creole եբրայերեն հինդի հունգարերեն icelandic հայերեն իռլանդական իտալական ճապոնացի Կորեայի Լատվիայի Լիտվայի մակեդոներեն Մալայերեն մալթերեն նորվեգական
պարսկական Լեհաստանի պորտուգալացի ռումինական ռուսական սերբերեն Սլովակիայի Սլովենիայի իսպաներեն սուահիլի շվեդերեն թայերեն թուրքական ուկրաինական ուրդու վիետնամերեն ուելսերեն հայերեն bengali բոսնիերեն
Cebuano Esperanto գուջարաթի հաուսա Hmong Igbo ճավաերեն kannada Khmer Lao լատիներեն մաորի մարաթի մոնղոլական նեպալերեն Punjabi Somali tamil telugu յորուբա
զուլուսերեն
Անգլերեն Французский Немецкий Итальянский Португальский Русский Испанский