Forum: Object-Pascal / Delphi-Language
Delphi
by Sascha L,
19. Apr 2006
procedure TForm1.ChangeObject(o : TControl; w, h, l, t : Integer; AFontStyle: TFontStyles);
begin
if w > -1 then o.Width:=w;
if h > -1 then o.Height:=h;
if l > -1 then o.Left:=l;
if t > -1 then o.Top:=t;
(o as TLabel).Font.Style := AFontStyle;
end;
Forum: Object-Pascal / Delphi-Language
Delphi
by Sascha L,
19. Apr 2006
Ich kann dir grade leider nicht einen Code zeigen, da das Update2 für Delphi06 gerade mein Delphi ruiniert :D
Du kannst doch aber z.B. folgendes machen:
(o as TLabel).Font.Styles
Wenn du unbedingt mit 1,2... für die einzelnen Styles arbeiten willst, würde ich ne Case-Anweisung verwenden. Ansonsten übergibt der Prozedure doch gleich die FontStyles. So ist es auch möglich dass du z.B....