Prozedur aufrufende Objekt-Instanz identifizieren

[roedel]

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 :-P

Danke im Voraus
Rödel

[Muetze1]

hö? Was ist dein Problem? Du hast 2x eine TObject Referenz, beide referenzieren eine TFileListBox Instanz. Leg fest, dass die erste immer Quelle ist und die zweite immer Ziel (Source, Destination). Also wo liegt dein Problem?

[roedel]

Also dann muss ich doch etwas ausholen...
Der Browser hat zwei von einander unabhängige Seiten, ähnlich dem TotalCommander (oder so)
Ich habe sowohl die möglichkeit, die items von links nach rechts als auch umgekehrt zu ziehen.
Also kann ich nicht einfach sagen, dass immer die eine Seite die Quelle ist. Wenn du zwei Fenster vom windows-explorer offen hast, kannst du ja auch in beide richtungen ziehen/verschieben :wink:

Wie im Code zu erkennen ist, übergebe ich Quelle und Ziel als Parameter.
Ich möchte gern wissen, wie ich aus diesen Parametern erfahre, welche Objekt-Instanz dahinter steckt :?:

[MStoll]

Hi

(Sender as TFileListBox).Name gibt dir den Namen des "Ziels".
(Source as TFileListBox).Name den der "Quelle".

Gruß
Michael

[roedel]

Danke, genau das ist es :dp:

Kannst du, oder jemand anders, mir büdde noch erkläen was es mit dem

Delphi-Quellcode:

AS

auf sich hat. Ich habe schon mal in der Object-Pascal-Referenz nachgelesen aber das nich verstanden.

[MStoll]

Wenn du, wie hier, ein TObject als "allgemeinen" Typ übergeben hast, kannst du mit "is" (z.B. Sender is TComponent) überprüfen, ob es sich um in Wirklichkeit um ein z.B. TComponent handelt. Es ist ja alles von TObject abgeleitet. Wenn du nun mit "as" (z.b. (Sender as TComponent) ) den Sender "typecastest", dann kannst du mit auf seine Eigenschaften und Methoden zugreifen, die er als TComponent besitzt. Du "wandelst" praktisch das TObject in den passenden Typ.

[Grishnak]

Ein

Delphi-Quellcode:

(source as TFileListBox).Name ...

ersetzt ein

Delphi-Quellcode:

if source is TFileListBox then
  TFileListBox(source).Name ...

[Der_Unwissende]

Zitat:

Zitat von Grishnak

Ein

Delphi-Quellcode:

(source as TFileListBox).Name ...

ersetzt ein

Delphi-Quellcode:

if source is TFileListBox then
  TFileListBox(source).Name ...

Tut es das? Wäre mir neu.
Also as führt natürlich eine Laufzeitprüfung durch und castet wenn möglich ein Objekt. Das Problem ist, dass auch as dir nicht garantieren kann, dass du ein Objekt hast, dass sich in deinen Zieltyp casten lässt. Ein Beispiel wäre hier, wie überführst du eine TBitmap in eine TStringList.
Der as Befehl löst eine Exception aus, wenn die Laufzeitprüfung zeigt, dass es sich um inkompatible Typen handelt. Wenn du mittels is die Laufzeitprüfung selbst vornimmst, musst du also nicht auf eine Exception reagieren und nachfolgender Code würde auch einfach erreicht werden.
Somit sind die beiden Varianten zwar (natürlich) sehr ähnlich, aber eben nicht gleich.

Gruß Der Unwissende

[Grishnak]

Ja, Unwissender, so stimmt es haargenau! :warn:
Ich wollte allerdings roedel nicht noch mehr verwirren! :roteyes:

[roedel]

Danke, dass ihr IS und AS noch etwas diskutiert habt.
Jetzt weiß ich endlich, was gehauen und gestochen ist :)

[Muetze1]

Aber trotzdem will ich nochmal kurz zu meiner Aussage zurück kommen: Du hast zwar 2 Boxen, aber bei einer fängt das Drag Ereignis doch immer an - egal welche von beiden. Diese ist dann immer Source und die jeweils andere immer Destination. Somit kannst du doch allgemein programmieren, das immer die Quelle der erste Parameter ist. Da habe ich nun noch nicht dein Problem verstanden, warum du diese Zuordnung nicht treffen kannst vor dem Aufruf des Ereignisses.

[roedel]

Hallo Mütze,

wie du gesagt hast, habe ich allgemein programmiert und verschiebe in der Prozedur immer von Source nach Sender. Mein Problem war, dass ich im Hintergrund noch die Dateien verschieben muss. Und dafür muss ich eben Source und Sender unterscheiden können, bzw. aus Source und Sender (den Objekt-Instanzen) das Verzeichnis holen, das aktuell dahinter steht. Mit Parametern vom Typ TObject, die vom DragDrop-Ereignis stammen, geht das nicht. Desdawegen mache ich erst mit AS die Umwandlung in das, was die Objekte eigentlich sind (TFileListBox) damit ich auf die Methoden (in dem Fall Properties) Zugriff habe, und mir das Verzeichnis holen kann.

Ich hoffe, das war verständlich :-D