Create et label felt under runtime.

Hvad med eks. at erklære en privat variabel på en form eks. TForm1

FEdit : TEdit;

Under antagelse af at du prøver at lave din edit i en metode på en form er det blot at skrive:


procedure TForm1.DoSomeThing;
begin
  // Do something...
  ...
  FEdit := TEdit.Create(Self);
  FEdit.Parent := Self;       
  (* Her er Self formen. Kan også være et panel.
  * Så mangler du blot at placere FEdit.
  *)
  ...
  // Do something more...
end;

Husk at FEdit skal frigives igen når du er færdig med at bruge den.

FEdit.free

Hej psv
Det er bare "fedt" det du har lavet til mig, jeg har lige prøvet det og det virker perfekt.
Ved du også hvordan jeg kan dreje en Label eller en Edit 90 grader ??

hlj: FEdit bliver free'et når formen free'es!

anold: Det tror jeg ikke man kan... Ikke med Delphi standardkomponenter!

jeg har en løsning på det, men ikke for 15 point og det er et helt andet spørgsmål

Jeg lavede lige et eksempel - så blev jeg forstyret og da jeg havde tid til at komme tilbage, var der lavet en million indslag....

Nå du får det nu alligevel!

Jeg bruger i eksemplet en Button-Click metode.
Jeg har valgt at lave en variabel kaldet fLabel, således at jeg nemmere kan ændre på label'ns properties efter oprettelsen.  Hvis man har brug for at kunne addressere komponenten fra andre procedure, så er det dog nemmest at lade variablen fLabel være deklereret i Form1's Private del.
Bemærk at i Create kaldet sættes lable'ns owner property til Form1 (=Self).  Når dette er gjort, så er det ikke nødvendigt selv at fjerne komponenten igen (med Free), idet dette gøres automatisk når Form1 fjernes. 
Man skal altid huske at sætte en komponents Parent property, idette tilfælde også til Form1 (eller Self).

Herefter kan alle de almindelige properties benyttes på sædvanlig vis.

procedure TForm1.Button1Click(Sender: TObject);
Var
  fLabel : TLabel;
  X      : Integer;
begin
  fLabel := Tlabel.Create(Self);
  fLabel.Parent := Form1;

  fLabel.Top  := 100;
  fLabel.Left := 100;
  fLabel.Top  := Random(Height);
  fLabel.Left := Random(Width);
  fLabel.Caption := 'Dette er en test.';
end;


Med hensyn til en label der kan drejes 90 grader, så prøv ProLabel fra Pro VCL Extension Librariet (http://www.farlep.net/~dgb).  Denne komponent har en Angel property.


NiP/Delphi

UPS: Jeg var stadig logget på som TestTestTest efter jeg lige havde skrevet en mail til lp, hvor jeg ville undersøge hvormange points en ny bruger har. 
Så'en kan det gå.
NiP/Delphi

ProLabel komponenter med en Angel property....  Den må høre til blandt de højere magter!

NiP

Hej NiP
Ja ProLabel høre til blandt de højere magter.Hvis ikke det er GUD
Jeg har hentet pro vcl og det virker perfekt så tak for dit "link"