delphi4arab منتديات دلفي للعرب

أنت حالياً تتصفح نسخة خفيفة من المنتدى . مشاهدة نسخة كاملة مع جميع الأشكال الجمالية .

السلام عليكم
عندي edit و listbox
محتوى الedit يتغير تلقائيا و يأخذ عناصر ال Listbox يعني كل نصف ثانية تتغير خاصية text له و تأخذ القيمة الموجودة في listbox

وعليكم السلام

كود :
procedure TForm1.Button1Click(Sender: TObject);
var
  dw: DWORD;
begin
  for dw := 0 to ListBox1.Items.Count - 1 do
  begin
    ListBox1.Selected[dw] := True;
    Edit1.Text := ListBox1.Items[dw];
    Sleep(500);
  end;
  ListBox1.Selected[dw] := False;
end;

شكرا لك اخي الكريم

haroun03

Agmcz

haroun03