Zippen mit Turbo Delphi

[DeddyH]

Man könnte dieser Extraklasse auch eine Property spendieren, welche das ParentControl aufnimmt. Alternativ könnte ich mir auch einen Parameter beim Aufruf der Routine vorstellen, der dem selben Zweck dient.

Delphi-Quellcode:

procedure TForm1.Wuppdi;
var DeineKlasse: TDeineKlasse;
begin
  DeineKlasse := TDeineKlasse.Create;
  try
    DeineKlasse.Zippen(self);
  finally
    DeineKlasse.Free;
  end;
end;