Nach Hause
Top.Mail.Ru Yandeks.Metrika
Forum: "Haupt";
Aktuelles Archiv: 2002.01.08;
Herunterladen: [xml.tar.bz2];

Nach unten

So erstellen Sie eine Leinwand in einem Fenster mit einem Fenster Finden Sie ähnliche Zweige


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

Die Leute, wie man meine Daten erstellt, die ich auf die Leinwand stecke, verschwanden nicht mit Fensterscheinen.
Und wie kann ich einen Tastendruck ausführen, wenn ich Software-TPanel erstellt habe?

Typ
TPreview = Klasse (TPanel)
privat
Eigenschaft Canvas;
geschützt
Öffentlichkeit
Konstruktor Create (AOwner: TComponent); überschreiben;
end;

{TPreview}

Konstruktor TPreview.Create (AOwner: TComponent);
beginnen
Inherited Create (AOwner);
Parent: = AOwner als TWinControl;
BevelInner: = bvNone;
BevelOuter: = bvNone;
Farbe: = clWhite;
BorderStyle: = bsNone;
end;

Prozedur TForm1.FormPaint (Sender: TObject);
var R: TRect;
beginnen
mit MyPrev tun
beginnen
Canvas.Pen.Width: = 1;
Canvas.Brush.Style: = bsSolid;
Canvas.Font.Size: = 18;
R: = Rect (10,10,100,100);
Canvas. Rechteck (R.Left-1, R.Top-1, R.Right + 1, R.Bottom + 1);
Canvas.TextRect (R, 0,0, "Demos");
end;
end;

Prozedur TForm1.FormCreate (Sender: TObject);
var R: TRect;
beginnen
MyPrev: = TPreview.Create (Selbst);
MyPrev.Height: = Form1.Height * 2;
Panel1.Height: = Form1.Height * 2;
mit MyPrev tun
beginnen
Canvas.Pen.Width: = 1;
Canvas.Brush.Style: = bsSolid;
Canvas.Font.Size: = 18;
end;
end;

end;



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

Leute, keine Gedanken ???



Seiten: 1 ganze Branche

Forum: "Haupt";
Aktuelles Archiv: 2002.01.08;
Herunterladen: [xml.tar.bz2];

nach oben









Speicher: 0.55 MB
Zeit: 0.027 c
3-21946
Set
2001-12-05 00:08
2002.01.08
Wieder mit Basen arbeiten


1-22089
HELP ME PLZ
2001-12-15 18:22
2002.01.08
Dll s


4-22463
Dmitry Alferev
2001-11-01 23:38
2002.01.08
FindResource findet keine Ressource


3-21945
asafr
2001-12-04 18:11
2002.01.08
FastReport. frBand.Visible


1-22096
Mikhalyov Dmitry
2001-12-19 15:55
2002.01.08
Über TObject in Veranstaltungen





Afrikanisch Albanien Arabisch Armenisch Aserbaidschanisch Baskisch Weißrusse Bulgarian katalanisch Chinesisch (vereinfacht) Chinesische Tradition) kroatisch Tschechisch Dänisch Dutch Englisch estnisch Philippinisch Finnish Französisch
Galicisch Georgisch Deutsch Griechisch haitian Creole Hebräisch Hindi ungarisch isländisch Indonesian irisch Italian Japanisch Koreanisch lettisch litauisch Makedonisch Malay Maltesisch Norwegian
persisch Polnisch Portugiesisch Rumänisch Russisch serbisch Slovakisch Slowenisch Spanisch Suaheli Swedish Thai Türkisch Ukrainisch Urdu Vietnamesisch Walisisch Jiddisch Bengalisch bosnisch
cebuano Esperanto Gujarati Hausa Hmong igbo Javanisch kannada khmer Laotisch Lateinisch Maorisch Marathi Mongolisch nepali Pandschabi Somalisch Tamilisch Telugu Yoruba
Zulu
Английский Französisch Deutsch Italienisch Португальский Russisch Spanisch