21-04-2019, Saat: 19:33
Merhaba; Listview adını almak istediğimde sadece listview adı çince olarak geliyor. bunu nasıl çözebilirim?
Showmessage(TListView(Data.Source).Name);
procedure TForm1.ListView1DragDrop(Sender: TObject; const [Ref] Data: TDragObject; const [Ref] Point: TPointF); var Stl: TStrings; Obj: IControl; Index: Integer; LVInsertName: TListView; LItem, AItem: TListViewItem; begin Stl := TStringList.Create; Obj := ObjectAtPoint(Screen.MousePos); try if Obj <> Nil then begin Index := GetIndexAtPos(TListView(Sender), Point); // Index no LVInsertName := TListView(Obj); // Insert listview AItem := TListViewItem(TListView(Data.Source)); // Seçili satır Showmessage(TListView(Obj).Name); Showmessage(TListView(Data.Source).Name); end; finally end; end;