Einzelnen Beitrag anzeigen

Rollo62
Online

Registriert seit: 15. Mär 2007
4.095 Beiträge
 
Delphi 12 Athens
 
#3

AW: Darstellungsprobleme Android

  Alt 21. Jan 2019, 17:39
Hallo Stefan,

reicht es nicht den Label mit Owner nil aufzurufen ?
Und den Parent würde ich auch vor den Free wieder aufräumen.

Delphi-Quellcode:
procedure TForm1.Button1Click(Sender: TObject);
var
  lab: TLabel;
begin
  lab := TLabel.Create(nil); //<--
  try
      lab.Parent := Panel1;
      lab.AutoSize := true;
      lab.Text := 'Hallo Du Da';
      // hier wird sonst die Labelhöhe ausgewertet
       lab.Parent := nil;
  finally
      lab.Free; // <-- evtl. besser .DisposeOf ?
  end;
end;
  Mit Zitat antworten Zitat