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

UptoLike

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

Рубрика:

76

procedure TForm1.FormCreate(Sender: TObject);

begin

StartPosX := 50; // стартовая позиция надписи

StartPosY := 50;

end;

end.

файл unit2.pas

unit Unit2;

interface

uses

Classes, StdCtrls;

type

TMyThread = class(TThread)

private

{Private declarations}

protected

procedure Execute; override;

procedure UpdateCaption;

end;

implementation

uses Unit1;

{Important: Methods and properties of objects in VCL can only be used in a

method called using Synchronize, for example,

Synchronize(UpdateCaption);

and UpdateCaption could look like,