摘要:
1 procedure TForm1.FormCreate(Sender: TObject);2 begin3 SetClassLong(Handle, GCL_STYLE, GetClassLong(Handle, GCL_STYLE) or CS_DROPSHADOW);4 end; 阅读全文
posted @ 2014-03-24 20:45
二进制的猫
阅读(411)
评论(0)
推荐(0)
摘要:
procedure TForm1.FormMouseDown(Sender: TObject; Button: TMouseButton; Shift: TShiftState; X, Y: Integer);beginif ssleft in shift then releasecaptur... 阅读全文
posted @ 2014-03-24 20:44
二进制的猫
阅读(157)
评论(0)
推荐(0)
浙公网安备 33010602011771号