Einzelnen Beitrag anzeigen

roedel

Registriert seit: 8. Feb 2006
Ort: Senftenberg
31 Beiträge
 
Delphi 7 Enterprise
 
#1

Prozedur aufrufende Objekt-Instanz identifizieren

  Alt 8. Feb 2006, 22:49
Hallo,

ich bastle zur Zeit an einem Datei-Browser. Wenn ich zwischen den beiden FileListBoxen per Drag&Drop die Items hin und her schiebe verwende ich immer die selbe Prozedur. Um im Hintergrund aber auch die Dateien verschieben zu können, muss ich wissen von welcher ListBox der Aufruf ausgeht.

Delphi-Quellcode:
procedure TForm1.TransferItems(Sender, Source : TObject; mode: char);
//TransferItems wird von der DragDrop-Ereignisbehandlungsroutine aufgerufen und bekommt von ihr
//Quell- und Zielobjekt übergeben
//mode -> verschieben oder kopieren
genau genommen: Wie kann ich Source und Sender unterscheiden? Beide sind vom Typ TFileListBox.
Für jede Richtung eine eigene Procedur implementieren wäre mir zu assi

Danke im Voraus
Rödel
Steh' zu dem was du tust oder lass' es!
  Mit Zitat antworten Zitat