Mam jakieś problemy w tym wątku:
unit Unit8;
interface
uses
System.Classes, Unit1;
type
Trunning = class(TThread)
private
{ Private declarations }
protected
procedure Execute; override;
end;
implementation
{
Important: Methods and properties of objects in visual components can only be
used in a method called using Synchronize, for example,
Synchronize(UpdateCaption);
and UpdateCaption could look like,
procedure Trunning.UpdateCaption;
begin
Form1.Caption := 'Updated in a thread';
end;
or
Synchronize(
procedure
begin
Form1.Caption := 'Updated in thread via an anonymous method'
end
)
);
where an anonymous method is passed.
Similarly, the developer can call the Queue method with similar parameters as
above, instead passing another TThread class as the first parameter, putting
the calling thread in a queue with the other thread.
}
{ Trunning }
procedure Trunning.Execute;
begin
FreeOnTerminate := True;
begin
SendMessage(h, WM_KEYdown, 38, 0);
SendMessage(h, WM_KEYup, 38, 0);
sleep(Form1.SpinEdit9.value);
SendMessage(h, WM_KEYdown, 40, 0);
SendMessage(h, WM_KEYUP, 40, 0);
end;
end;
end.
Sorry, ale nigdy tego nie robiłem wcześniej.