Custom Property Editor Streaming

[stahli]

Einen Propertyeditor habe ich gerade nicht zur Hand. Aber in meinem Komponenteneditor rufe ich Designer.Modified auf.
Schau mal nach einer analogen Anweisung.

Delphi-Quellcode:

procedure TssLayoutComponentEditor.ShowDesigner;
var
  DesignerForm: TFormSsLayoutEditor;
begin
  if (Component is TssLayout) then
  begin
    DesignerForm := TFormSsLayoutEditor.Create(nil);
    try
      DesignerForm.ssLayoutIDE := (Component as TssLayout);
      DesignerForm.AssignLayoutIDEtoDTE;
      DesignerForm.ShowModal;
      DesignerForm.AssignLayoutDTEtoIDE;
      DesignerForm.ssLayoutIDE := nil;
      Designer.Modified;
    finally
      DesignerForm.Free;
    end;
  end;
end;

[mcbain]

Designer.Modified war die Lösung:

Code:

procedure TMyEditor.Edit;
var lform: TMyForm;
begin
  lform := TMyForm.Create(nil);
  try
    lform.MyData:= TMyData(GetOrdValue);
    lform.ShowModal;
    Designer.Modified;

  finally
    FreeAndNil(lform);
  end
end {Edit};

Vielen Dank an stahli!