Metainformationen zur Seite

Unterschiede

Hier werden die Unterschiede zwischen zwei Versionen angezeigt.

Link zu dieser Vergleichsansicht

Beide Seiten der vorigen RevisionVorhergehende Überarbeitung
Nächste Überarbeitung		Vorhergehende Überarbeitung
code:defaultmethods [2026/05/06 13:28] – Harald Schmidcode:defaultmethods [2026/05/06 13:45] (aktuell) – [Drag & Drop] Harald Schmid
Zeile 19: Zeile 19:
   * Die auf das Formular gedroppten Dateien können dann in der override-Methode **procedure FilesDropped(const mText: string); override;** ausgewertet werden.   * Die auf das Formular gedroppten Dateien können dann in der override-Methode **procedure FilesDropped(const mText: string); override;** ausgewertet werden.
  
 +<code>
 +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;
 +</code>
 +
 +Im ConfigForm kann man dann in InitVars dem OnFilesDropped eine eigene Methode zuweise:
 +
 +<code>
 +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;
 +</code>