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.81 MB
Zeit: 0.027 c
1-22047
Handra
2001-12-17 13:12
2002.01.08
Hilfe bei der Erstellung


14-22343
Merlin
2001-11-02 14:17
2002.01.08
Vor Lachen fiel ich fast zu Boden!


4-22455
Maamed
2001-10-31 10:13
2002.01.08
Aktivieren Sie ein anderes Programmfenster


1-22075
zu
2001-12-19 12:40
2002.01.08
Tabellen in MS Word


1-22009
oomneeq
2001-12-14 21:26
2002.01.08
Zirkuläre Klassenreferenz





Afrikanisch albanisch Arabic 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 Slovak Slowenisch Spanisch swahili 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