Сборник лабораторных работ по дисциплине "Прикладное программное обеспечение". Самохвалов К.М. - 75 стр.

UptoLike

Составители:

Рубрика:

75

interface

uses

Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Di-

alogs,

Unit2, StdCtrls;

type

TForm1 = class(TForm)

Button1: TButton;

procedure Button1Click(Sender: TObject);

procedure FormCreate(Sender: TObject);

private

{Private declarations}

protected

FMyThread: TMyThread;

public

{Public declarations}

end;

var

Form1: TForm1;

StartPosX,

StartPosY: Integer;

implementation

{$R *.DFM}

procedure TForm1.Button1Click(Sender: TObject);

begin

FMyThread := TMyThread.Create(False);

// запускает новый поток при нажатии на кнопку

end;