Einzelnen Beitrag anzeigen

Benutzerbild von DeddyH
DeddyH

Registriert seit: 17. Sep 2006
Ort: Barchfeld
27.625 Beiträge
 
Delphi 12 Athens
 
#9

AW: Eigenschaften von erzeugten Komponenten

  Alt 10. Aug 2011, 11:40
Ich würde das wie gesagt einfacher machen:
Delphi-Quellcode:
procedure TDeinForm.AddNewLabeledEdit(aLeft, aTop: integer; const aCaption: string);
var
  le: TLabeledEdit;
begin
  le := TLabeledEdit.Create(self);
  le.Left := Left;
  le.Top := aTop;
  le.EditLabel.Caption := aCaption;
  (* hier nun die gemeinsamen Eigenschaften definieren *)
  le.Parent := self; //oder ein Panel oder wo es sonst hinsoll
  (* usw. *)
end;
Um nun ein neues EditLabel anzulegen, rufst Du diese Methode auf und übergibst Left, Top und Caption in den Parametern.
Detlef
"Ich habe Angst vor dem Tag, an dem die Technologie unsere menschlichen Interaktionen übertrumpft. Die Welt wird eine Generation von Idioten bekommen." (Albert Einstein)
Dieser Tag ist längst gekommen
  Mit Zitat antworten Zitat