Einzelnen Beitrag anzeigen

Benutzerbild von Lannes
Lannes

Registriert seit: 30. Jan 2005
Ort: Münster
745 Beiträge
 
Delphi 3 Professional
 
#12

Re: Drag Drop Sender 2x TListview Untescheidung

  Alt 21. Okt 2005, 09:44
Hallo,
Zitat von padavan:
...das geht nicht, da dann andere DragDrop Operaton ja auch nicht mehr gingen. Kommen noch mehr dazu, aus Label usw.
das brauchst Du ja nur erweitern:
Delphi-Quellcode:
//in DragDrop
if Source = Lavbel1 then
    begin
    caption := 'Label1';
    //mach was mit Label1
    end;
//in DragOver
if (Source = ListView1) or
   (Source = ListView2) or
   (Source = Label1) then
MfG Lannes
(Nichts ist nicht Nichts) and ('' <> nil ) and (Pointer('') = nil ) and (@('') <> nil )
  Mit Zitat antworten Zitat