Wie funktioniert die Delphi Trackbar ?!?

[Christian Seehase]

Moin Trouble Maker,

Delphi-Quellcode:

procedure TForm1.TrackBar1Change(Sender : TObject); 
begin 
  case TrackBar1.Position of 
    1 : WebBrowser1.OleObject.Document.Body.Style.Zoom := 1; 
    2 : WebBrowser1.OleObject.Document.Body.Style.Zoom := 0.9; 
    //... 
  end; 
end; 

procedure TForm1.TrackBar1Change(Sender : TObject); 

const
  _aZoomLevel : array [1..5] of double = (1,0.9 usw.)
begin 
  WebBrowser1.OleObject.Document.Body.Style.Zoom := _aZoomLevel[TrackBar1.Position]; 
end;

ausserdem sind die Funktionen nicht identisch, sie tun nur das Gleiche

Der erste Fall ist sinnvoll, falls eventuell noch mehr passieren soll, in Abhängigkeit der Position der Trackbar.