Drag & Drop über Frames

[GreenHorn3600]

Hallo zussammen,

wie kann ich ein drag & drop realisieren, von einer listbox in einem frame auf ein ttreeview in einem formular?

wenn ich onOverDrag abfage, kennt er die listbox nicht... :-(

danke für euere hilfe ... :-)

[semo]

wo fragste du denn onOverDrag ab?

[GreenHorn3600]

@Marcus Hassmann, tja, im formular, im tTreeView, wo das Item hingezogen werden soll ... nur die Listbox, liegt halt in einem Frame.. und dort soll sie auch bleiben.. wird noch an etlichen anderen stellen verwendet...

[omata]

Das sollte kein Problem sein...

Delphi-Quellcode:

procedure TFrame.TreeViewDragOver(Sender, Source: TObject; X, Y: Integer;
  State: TDragState; var Accept: Boolean);
begin
  accept:=(Source is TListBox);
end;

procedure TFrame.TreeViewDragDrop(Sender, Source: TObject; X, Y: Integer);
var ListBox:TListBox;
begin
  if Source is TListBox then begin
    ListBox:=TListBox(Source);
    showmessage(ListBox.Name);
  end;
end;

Gruss
Thorsten

[GreenHorn3600]

Zitat:

Zitat von omata

Das sollte kein Problem sein...

Delphi-Quellcode:

procedure form1.TreeViewDragOver(Sender, Source: TObject; X, Y: Integer;
  State: TDragState; var Accept: Boolean);
begin
  accept:=(Source is TListBox);
end;

procedure form1.TreeViewDragDrop(Sender, Source: TObject; X, Y: Integer);
var ListBox:TListBox;
begin
  if Source is TListBox then begin
    ListBox:=TListBox(Source);
    showmessage(ListBox.Name);
  end;
end;

Gruss
Thorsten

das sagst du ...

nur hier:

Delphi-Quellcode:

procedure form1.TreeViewDragOver(Sender, Source: TObject; X, Y: Integer;
  State: TDragState; var Accept: Boolean);
begin
  accept:=(Source is TListBox); // <-- hier
end;

kommt leider nie true an :-(

die listbox liegt in frame, nicht das tTreeView...

[omata]

Wo die Elemente liegen ist dabei völlig egal.

Wird das Ereignis überhaupt ausgelöst? Hast du den DragMode auf Automatic gestellt?

Edit: ich habe mal ein Beispiel angehängt.

[GreenHorn3600]

Zitat:

Zitat von omata

Wo die Elemente liegen ist dabei völlig egal.

Wird das Ereignis überhaupt ausgelöst? Hast du den DragMode auf Automatic gestellt?

scheint nicht so zu sein, dass es egal ist. ja das event wird gefeuert.. aber manuell.. und im debugger wird es dann auch abgefragt. aber da kann ich setzen was ich will ob sender oder source, es wird kein tListbox erkannt.. obgleich diese den DragMode überhaupt auslöst... kann mir nur vorstellen, dass es daran liegt, dass die listbox in 'ner FRAME ist und das empfangende objekt (tTreeView) in einer Form, auf dem das Frame eingebettet ist... :-(

[bitsetter]

Dann lass dir doch mal zum Test den Namen des Objektes anzeigen.

Delphi-Quellcode:

procedure form1.TreeViewDragOver(Sender, Source: TObject; X, Y: Integer;
  State: TDragState; var Accept: Boolean);
begin
  ShowMessage(Source.ClassName);
end;

[GreenHorn3600]

Zitat:

Zitat von bitsetter

Dann lass dir doch mal zum Test den Namen des Objektes anzeigen.

Delphi-Quellcode:

procedure form1.TreeViewDragOver(Sender, Source: TObject; X, Y: Integer;
  State: TDragState; var Accept: Boolean);
begin
  ShowMessage(Source.ClassName);
end;

dank für den tipp. jetzt ist es klar, als klassenname wird der frame verwendet, nicht die listbox... dank und gruss Greeny