DELPHI 谁看得懂这是什麼意思

来源：百度知道 编辑：UC知道 时间：2024/06/07 23:12:49
unit Unit1;

interface

uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, StdCtrls;

type
//----------------------------------------------
TLogin = class(TThread)
private
{ Private declarations }
protected
procedure Execute; override;
public
Constructor Create(CreateSuspended: Boolean);
destructor Destroy; override;
end;
//----------------------------------------------
TForm1 = class(TForm)
Button1: TButton;
Button2: TButton;
Edit1: TEdit;
procedure FormCloseQuery(Sender: TObject; var CanClose: Boolean);
procedure Button1Click(Sender: TObject);
procedure Button2Click(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;

var
Form1: TForm1;
ISExit: Boolean;
Ne

线程测试用的..
TLogin 继承线程类TThread，构造函数CreateSuspended参数为False则线程创建立即触发主线程Execute,执行相应事件，当IsExit为false时Form1.Edit1.Text得值从0 到 100000 连续变化，当IsExit为True 终止线程，如果不采用线程，操作0 到 100000时窗口将会'死掉'.

var
Form1: TForm1;
OldColor: Tcolor;
NewColor: Tcolor;

implementation

{$R *.dfm}

procedure TForm1.Timer1Timer(Sender: TObject);
var
CurDC: HDC;
CurPoint: TPoint;
Color: TColor;
begin
CurDC := GetDC(0);
if CurDC <> NULL then
try
GetCursorPos(CurPoint);
Color := GetPixel(CurDC,CurPoint.x,CurPoint.y);
Panel1.Color:=Color;
Edit1.Text := '$'+IntToHex(Color,8);
finally
ReleaseDC(0,CurDC);
end;
end;

procedure TForm1.Button1Click(Sender: TObject);
var R,G,B: integer;
CurDC: HDC;
CurPoint: TPoint;
begin
CurDC := GetDC(0);
if CurDC <> NULL then