Unterschiede

Hier werden die Unterschiede zwischen zwei Versionen angezeigt.

--- code:defaultmethods [2026/05/06 13:36] – Harald Schmid
+++ code:defaultmethods [2026/05/06 13:45] (aktuell) – [Drag & Drop] Harald Schmid
@@ Zeile 29: / Zeile 29: @@
 </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>