Einzelnen Beitrag anzeigen

Benutzerbild von Speedmaster
Speedmaster

Registriert seit: 4. Mär 2005
Ort: Karlsruhe
535 Beiträge
 
Delphi 2005 Personal
 
#1

Wie eine eigene Form als Parameter?

  Alt 4. Apr 2005, 18:42
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.
  Mit Zitat antworten Zitat