Einzelnen Beitrag anzeigen

oki

Registriert seit: 30. Dez 2002
Ort: Brandshagen
1.819 Beiträge
 
Delphi 2007 Professional
 
#5

Re: Create überschreiben (newbefrage)

  Alt 19. Jun 2007, 09:54
Hi, so:

Delphi-Quellcode:
Constructor Create(AOwner: TComponent; Mode : Modetyp); overload;

procedure TForm.Create (AOwner: TComponent; Mode : Modetyp);
begin
  inherited create(AOwner);
  Form.Create(self);
  if Mode = ....
  // case for mode here
end;
Der Constructor wird somit überladen. Du kannst dann beide Constructoren aufrufen, den alten mit nur AOwner und den neuen. Es gibt die Funktion somit zweimal mit unterschiedlichen Parametern. die OH gibt da auch gut auskunft.

Gruß oki