Цитата:
|
Сообщение от M.A.D.M.A.N.
Код:
procedure TForm1.ListBox1Click(Sender: TObject);
var
lb: tlistbox absolute sender;
begin
Memo1.Text:=lb.Items[lb.ItemIndex];
end; |
Полностью согласен, так намного проще, но всё же лучше явно указывать класс сендера, а то мало ли что
Код:
...
with Sender as TListBox do
Memo1.Text:= Items[ItemIndex];
...