Procedure schreiben die bei Objekten Eigenschften setzt!

[r2c2]

Doch TControl hat ne Font-property(grad nochmal nachgeguckt).

Ergo:

Delphi-Quellcode:

procedure TProgramm.Objekt(o : TControl; w, h, l, t : Integer; AFontStyle: TFontStyle); 
begin 
  if w <> 0 then o.Width:=w; 
  if h <> 0 then o.Height:=h; 
  if l <> 0 then o.Left:=l; 
  if t <> 0 then o.Top:=t; 
  o.FontStyle := AFontStyle;
end;

mfg

Christian