Den Anfang hat Dir Daniel hier schon in diesem
Post gezeigt. Meine Procedure sieht dann so aus :
Delphi-Quellcode:
rocedure TMainForm.SetModificationsforiOS;
var
CurrentDevice: UIDevice;
begin
CurrentDevice := TUIDevice.Wrap(TUIDevice.OCClass.currentDevice);
if Pos('7.', String(CurrentDevice.systemVersion.UTF8String)) = 0 then
begin
{ Alle Aktionen für iOS 6 }
end
else
begin
{ Alle Aktionen für iOS 7 }
end;
end;
In den beiden begin..end Blöcken setze ich die Eigenschaft Property entsprechend, da zum Beispiel ein Forward-Button unter iOS 6 kleiner ist als unter iOS 7.