Stellt sich nur die Frage, wo ich das Parent hier setzen soll
Delphi-Quellcode:
procedure TForm1.Button1Click(Sender: TObject);
var
CoffeeBar: ICoffeeBarController;
Result: Integer;
begin
CoffeeBar := CreateComObject(CLASS_CoffeeBarController) as ICoffeeBarController;
CoffeeBar.AddBean('A');
CoffeeBar.AddBean('B');
CoffeeBar.AddBean('C');
CoffeeBar.OpenCoffeeBar;
end;
CoffeeBar hat keine Eigenschaft Parent...