+- delphi4arab منتديات دلفي للعرب (https://delphi4arab.net/forum)
+-- قسم : منتديات دلفي للعرب التعليمية (https://delphi4arab.net/forum/forumdisplay.php?fid=3)
+--- قسم : سؤال و جواب حول دلفي (https://delphi4arab.net/forum/forumdisplay.php?fid=15)
+--- الموضوع : كيف اقوم بجعل محتوى النص في edit تلقائيا بالاعتماد على timer (/showthread.php?tid=7042)
كيف اقوم بجعل محتوى النص في edit تلقائيا بالاعتماد على timer - haroun03 - 11-06-2015
السلام عليكم
عندي edit و listbox
محتوى الedit يتغير تلقائيا و يأخذ عناصر ال Listbox يعني كل نصف ثانية تتغير خاصية text له و تأخذ القيمة الموجودة في listbox
كيف اقوم بجعل محتوى النص في edit تلقائيا بالاعتماد على timer - Agmcz - 11-06-2015
وعليكم السلام
كود :
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;كيف اقوم بجعل محتوى النص في edit تلقائيا بالاعتماد على timer - haroun03 - 19-06-2015
شكرا لك اخي الكريم