Tweet
Wie erstelle ich ein TLabel zur Laufzeit?
Bitte ausführliches Beispiel dazu,danke.
Bitte ausführliches Beispiel dazu,danke.
-
-
Hallo Stefan,<br>hier ist ein komplettes Beispiel.<br>
<pre><font size="1" face="Verdana">
unit Unit1;
interface
uses
Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
StdCtrls, ExtCtrls;
type
TForm1 = class(TForm)
Panel1: TPanel;
procedure FormCreate(Sender: TObject);
private
{ Private-Deklarationen }
FLabel : TLabel;
public
{ Public-Deklarationen }
end;
var
Form1: TForm1;
implementation
{$R *.DFM}
procedure TForm1.FormCreate(Sender: TObject);
begin
FLabel:=TLabel.Create(Self); // Mach Formular zum Besitzer
FLabel.Parent:=Self;
FLabel.Top:=10;
FLabel.Left:=10;
FLabel.Caption:='Labelcaption';
end;
end.</font></pre>
<br>Interessant ist die Zeile FLabel.Parent:=Self;
Dort legst Du fest, wo das Label gezeichnet werden soll. Wenn Du dort anstatt Self Panel1 hinschreibst, wird das Label auf dem Panel gezeichnet. Das Formular bleibt aber weiterhin der Besitzer. Deshalb brauchst Du das Label im OnDestroy Handler des Formulars auch nicht freigeben. Das freigeben erledigt das Formular automatisch.<br>:-) Jens Schuman -
Danke
des war sehr hilfreichComment
Comment