[Delphi] Blikanie

ⓢⓐⓟⓛⓔⓡ

Zdravim, na internete som nasiel jednu proceduru.
Ta simuluje stlacenie klavese NumLock, ja potrebujem aby sa striedali tieto dva prikazy.

Kód: Vybrať všetko

SetLedState(ktNumLock, True);

a

Kód: Vybrať všetko

SetLedState(ktNumLock, False);

Skusal som to pomocou sleep() ale to nieje to spravne riesenie, pretoze mi to zatazuje CPU aj ked tam pridam Application.ProcessMessages neblika to presne.

ak to máš v nekonečnom cykle tak sa ani nečudujem. Daj to do timeru a nemal by byť problém

Thek_SVK

Co keby si skusil vytvorit dalsie vlakno, pred jeho aktivaciou by si mal nejaky boolean wait:=true, vlakno by cakalo dajme tomu 100ms a potom by zmenilo wait:=false, pricom hlavne vlakno by cakalo na wait=false...cize nieco taketo

wait:=true
vlakno:=TThreadVlakno.create(false);
while wait=true do ProcessMessages
SetLedState(...);

pricom...

TThreadVlakno.execute
begin
sleep(100);
wait:=false;
end;

ⓢⓐⓟⓛⓔⓡ

//autoeditácia príspevku ( 03 Dec 2009, 17:04 )
nechcem zakladat novu temu tak to napisem sem, mam taky problem, mam komponentu webbrowser nou zistim title dokumentu cez webbrowser1.locationname ale ja potrebujem zistit ten text ktory ukaze nam v hornej liste ci ako sa to vola, pretoze na jednej stranke je to tam dynamicke a meni sa to, vkladane je to tam nejakym javascriptom.

// EDIT kvalitne to zblbo vypisalo mi nejaky error a predoslu spravu vymazalo