Wie kann man eine eigene Form(Also mit Komponenten und Co.) als Parameter an eine Funktion/Procedure übergeben, die diese Form als
var-Parameter erwartet, aber auch andere Form's bearbeiten kann(Kann also nicht TForm1 als erwarteten Parameter angeben)!
Grund ist hier zu sehen:
Delphi-Quellcode:
procedure TswOptions.LoadFormStyle(var Form: TForm; var Image: TImage;
ObjektFile: TMemIniFile; SPath: String);
begin
// Style der Programmleiste(Oben)
case ObjektFile.ReadInteger(SPath,'BorderStyle',3) of
0: Form.BorderStyle := bsDialog;
1: Form.BorderStyle := bsSingle;
2: Form.BorderStyle := bsToolWindow;
else Form1.BorderStyle := bsNone;
end;
// Läd Daten über die Systembuttons
if ObjektFile.ReadBool(SPath,'BiSystemMenu',True) = True then
Form.BorderIcons := Form.BorderIcons + [biSystemMenu];
if ObjektFile.ReadBool(SPath,'BiMinimize',True) = True then
Form.BorderIcons := Form.BorderIcons + [BiMinimize];
// Hintergrund
try
Image.Picture.LoadFromFile(Path +
'\Run\APRM\Skin\'+ObjektFile.ReadString('swMain','Background','Default_Background.jpg'));
except
v_Error.ShowError(PFnExist);
end;
end;
Felix K.