zerofer
Junior Member | Редактировать | Профиль | Сообщение | Цитировать | Сообщить модератору
V1s1ter Давайте так ,не пойму почему не работает,дайте рабочий пример,мне просто понять как работает компонент,пр и нажатии на кнопку ничего не происходит,меняю в примере джеди там работает,бред не пойму.
unit Unit1;
interface
uses
Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
StdCtrls, JvThread, JvComponent, JvComponentBase;
type
TForm1 = class(TForm)
Label1: TLabel;
JvThread1: TJvThread;
Button1: TButton;
procedure JvThread1Execute(Sender: TObject; params: Pointer);
procedure Button1Click(Sender: TObject);
private
public
end;
var
Form1: TForm1;
implementation
{$R *.DFM}
procedure TForm1.JvThread1Execute(Sender: TObject; params: Pointer);
begin
showmessage('7687');
end;
procedure TForm1.Button1Click(Sender: TObject);
begin
JvThread1.Execute(self);
end;
end.
Добавлено:
Frodo_Torbins код я привел выше у вас тоже работает?
|
