如题。
解决方案 »
- 如何列举某一进程的线程id列表
- ADOQuery1状态判断
- 我的三层系统,用到cxGrid,cxGrid新加的记录怎么通过ClientDataSet写到数据库中去?
- 请大家帮忙看看,一个SQL语句的问题
- 小弟刚开始接触网络编程,询问idtcpserver和idtcpclient问题
- 请教如何将自动创建的控件释放!
- 如何实现从数据库导出数据到treeview控件
- ★★★★★ Timage控件显示不全的问题,求教高手 ★★★★★
- 请教》:请问各位大哥,DELPHI里面的布局锁定问题,急
- 为什么同一进程,同一connection,只是不同时候修改了数据,会出现冲突???
- 昨天下午的帖子到现在还没人回答,谁回答给400分
- **我想让图像按比例缩小放大,如5:1,1:2之类的,怎样才能使图像总处在panel的中间?
Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
ExtCtrls, StdCtrls, Buttons; type
TForm1 = class(TForm)
Button1: TButton;
Image1: TImage;
procedure FormCreate(Sender: TObject);
procedure Button1Click(Sender: TObject);
procedure Image1MouseDown(Sender: TObject; Button: TMouseButton;
Shift: TShiftState; X, Y: Integer);
private
function CreateRegion(wMask: TBitmap; wColor: TColor;
hControl: THandle): HRGN;
{ Private declarations }
public
{ Public declarations }
end;
begin
if line then
begin
line := false;
MoveToEx(dc, coord.x, coord.y, nil);
LineTo(dc, coord.x, y);
LineTo(dc, coord.x + 1, y);
LineTo(dc, coord.x + 1, coord.y);
CloseFigure(dc);
end;
end;
end;
end;
EndPath(dc);
rgn := PathToRegion(dc);
ReleaseDC(hControl, dc);
Result := rgn;
end;
var
w1:TBitmap;
w2:TColor;
rgn: HRGN;
begin
w1:=TBitmap.Create;
w1.Assign(image1.Picture.Bitmap);
w2:=w1.Canvas.Pixels[0,0];
rgn := CreateRegion(w1,w2,Handle);
if rgn<>0 then
begin
SetWindowRgn(Handle, rgn, true);
end;
w1.Free;
end; procedure TForm1.Button1Click(Sender: TObject);
begin
Close();
end;procedure TForm1.Image1MouseDown(Sender: TObject; Button: TMouseButton;
Shift: TShiftState; X, Y: Integer);
begin
ReleaseCapture;
SendMessage(Handle, WM_SYSCOMMAND, $F012, 0);
end; end.
1。速度慢,
2。我遇到一次,norton的界面html文件被网页型病毒感染,结果主界面打不开的情况。。