to jest z dzialu gotowce..przerobilem z listboxa na flatlistbox i mi wywala bleda..
procedure TMainForm.lbSourceDragDrop(Sender, Source: TObject; X,
Y: Integer);
begin
TFlatListBox(Sender).Items.Add(TFlatListBox(Source).Items[TFlatListBox(Source).ItemIndex]);
TFlatListBox(Source).Items.Delete(TFlatListBox(Source).ItemIndex);
end;
- no i tu mi wywala blad....z tym ItemIndex...flatlistbox tego nie ma.... jestem
zrozpaczony help !!! wie ktos jaka komenda to obsluguje...zadne selected nie wchodzi w gre :(
*dalej wszystko gra
procedure TMainForm.lbSenderMouseMove(Sender: TObject; Shift: TShiftState;
X, Y: Integer);
begin
if ssLeft in Shift then
TFlatListBox(Sender).BeginDrag(FALSE);
end;
procedure TMainForm.lbSourceDragOver(Sender, Source: TObject; X,
Y: Integer; State: TDragState; var Accept: Boolean);
begin
Accept := Sender <> Source;
end;