Drag & Drop ... looknijcie moze akurat ktos wie...

0

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 &lt&gt Source;
end;

0

To do bani jest ten FlatListBox jesli nie ma cechy ItemIndex....-------[ Delphi 6 Rulez 4 Ever!, przynajmniej do czasu gdy naucze sie C++ :) ]------

1 użytkowników online, w tym zalogowanych: 0, gości: 1, botów: 0