Hallo,
so jetzt muss ich die Procedure noch erweitern. Das funktioniert aber nicht so ohne weiteres!!!
ich will jetzt noch
o.Font.Styles:=[];
drinn haben. Also ich will an die Procedure einen weiteren Parameter übergeben er heisst b wenn b 1 dann
o.Font.Styles:=[fsBold];
wenn b=0 dann
o.Font.Styles:=[];
wie kann ich das machen???? TControl kann leider kein Font.Styles
hier der code den ich bis jetzt habe!!!
<EDIT>
Delphi-Quellcode:
procedure TProgramm.Objekt(o : TControl; w, h, l, t : Integer);
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;
end;
</EDIT>
MFG Christian18