Hallo zusammen
Ich habe folgendes Problem :
Per Drag und Drop möchte ich von einer TListview die aktuell ausgewählte Zeile als String in ein TMemofeld kopieren. Das Akzeptieren funktioniert auch ganz wunderbar, der String kann ebenso einfach bestimmt und herauskopiert werden. Ich scheitere jedoch daran, das der 'gedraggte' String, der ja automatisch im ersten Fenster angezeigt wird, im 2. Fenster plötzlich verschwindet bzw unsichtbar wird. Zieht man diesen String jedoch auf die Windowsoberflaeche(bzw. auf Flächen, die nicht vom Hauptfenster verdeckt werden) wird er wieder sichtbar.
Der Code ist recht simpel und sieht zur Zeit so aus :
Das Zielfenster (TMemo):
- DragMode = Automatic
Delphi-Quelltext
1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
| procedure TRSPPBase.ChatMemoDragOver(Sender, Source: TObject; X, Y: Integer;
State: TDragState; var Accept: Boolean);
begin
Accept := (Source is TListView) and ((Source as TListView).ItemIndex <> -1);
end;
procedure TRSPPBase.ChatMemoDragDrop(Sender, Source: TObject; X, Y: Integer);
begin
ShowMessage('Und abgelegt');
end; |
Quellfenster (TListview) :
- DragMode = Automatic
- Keine weiteren Funktionen, den Startvorgang überlasse ich automatisch dem BS
Hat das etwas mit der Parent-Option der Quelle zu tun oder habe ich hier noch zusätzlichen Code hinzuzufügen ?
MfG
Quitzlinga
aber ich hatte auch mal (ein bis jetzt ungelöstes) 
