DragDrop

Delphi

06/08/2010

Galera construi um formulario com 2 listbox para arrastar item de um para outro deu certo mas me surgiu uma dúvida quando aos typecasting

procedure TForm1.ListBox1DragDrop(Sender, Source: TObject; X, Y: Integer);
var
 item: string;
begin
   item:= (Source as TListBox).Items[(Source as TListBox).ItemIndex];
   TListBox(Sender).Items.Add(item);
end;


eu nao entendi o porque fazer um casting na parte em vermelho.
Porque nao posso usar ?
  item:= (Source as TListBox).Items[ItemIndex];

Jonathan Campos

Jonathan Campos

Curtidas 0

Respostas

Eriley Barbosa

Eriley Barbosa

06/08/2010

Porque da erro: [Error] Unit1.pas(31): Undeclared identifier: 'ItemIndex'   Atenciosamente   Eriley
GOSTEI 0
POSTAR