Standard-Funktionen und -Methoden

• ActivatePresetsByID Info
  Aktiviert einen Preset für das aktuelle Modul über die PresetID
• CurrentConfigToJson Info
  …
• CurrentConfigFromJson

• AddButtonToButtonLayoutGroup Info
  AddButtonToButtonLayoutGroup(dxLayoutGroup, 'btn1', 'btn', 1, 1, GroupButtonClicked);
  Beschreibung

• Um das Drag&Drop von Dateien auf ein Modul zu aktivieren, muss man im Modul TinsightsModuleMain.Create FInfo.AcceptFiles auf True setzen.
• Die auf das Formular gedroppten Dateien können dann in der override-Methode procedure FilesDropped(const mText: string); override; ausgewertet werden.

procedure TinsightsModuleMain.FilesDropped(const mText: string);
begin
  // direkt im Module Code ausführen oder
  // den Event OnFilesDropped des formModuleBase (override im eigentlichen Formular) ausführen
  if assigned(FConfigForm.OnFilesDropped) then
    FConfigForm.OnFilesDropped(mText);
end;

Im ConfigForm kann man dann in InitVars dem OnFilesDropped eine eigene Methode zuweise:

procedure TformConfigForm.InitVars;
begin
  inherited;
  OnFilesDropped := FilesDropped;
end;

procedure TformConfigForm.FilesDropped(const mText: string);
begin
  CodeSite.Send(csmGreen, 'mText', mText);
  hsSList(mText, #13#10).ForEachI(procedure(const mStr: string; mInt: Integer)
    begin
      CodeSite.Send(mInt.ToString, mStr);
    end);
end;