11-07-2012, 10:09 AM
السلام عليكم
كود :
procedure TForm1.Button1Click(Sender: TObject);
begin
if ListBox1.ItemIndex <> - 1 then
Edit1.Text := ListBox1.Items[ListBox1.ItemIndex];
end;
و لرب نازلة يضيق لها الفتى ذرعا و عند الله منها المخرج
ضاقت فلما استحكمت حلقاتها فرجت و كنت اضنها لا تفرج
ضاقت فلما استحكمت حلقاتها فرجت و كنت اضنها لا تفرج