delphi杂记(转)
来源:互联网 发布:淘宝京东唯品会 编辑:程序博客网 时间:2024/06/05 15:36
//获取任务栏尺寸
procedure TForm1.Button1Click(Sender: TObject);
var
TaskList: HWnd;
Bordered: TRect;
begin
TaskList := FindWindow(’Shell_TrayWnd’, nil);
GetWindowRect(TaskList, Bordered);
Label1.Caption := ’Left: ’ + IntToStr(Bordered.Left);
Label2.Caption := ’Right: ’ + IntToStr(Bordered.Right);
Label3.Caption := ’Top: ’ + IntToStr(Bordered.Top);
Label4.Caption := ’Bottom: ’ + IntToStr(Bordered.Bottom);
end;
//修改指定路径下的文件只读属性
function PathSetAttr(sFilePath: string): Boolean;
var
SearchRec: TSearchRec;
begin
Result := False;
if Copy(sFilePath, Length(sFilePath) - 1, Length(sFilePath)) <> ’/’ then
sFilePath := sFilePath + ’/’;
if DirectoryExists(sFilePath) then
begin
if FindFirst(sFilePath+’*.*’, faAnyFile, SearchRec) = 0 then
begin
FileSetAttr(SearchRec.Name, 32);
while FindNext(SearchRec) = 0 do
FileSetAttr(SearchRec.Name, 32);
end;
Result := True;
end;
end;
//为控件加边框
procedure WMNCPaint(var Msg: TWMNCPaint); message WM_NCPAINT;
procedure TForm1.WMNCPaint(var Msg: TWMNCPaint);
var
dc: hDC;
Pen: hPen;
OldPen: hPen;
OldBrush: hBrush;
begin
inherited;
dc := GetWindowDC(Handle);
msg.Result := 1;
Pen := CreatePen(PS_SOLID, 1, RGB(255, 0, 0));
OldPen := SelectObject(dc, Pen);
OldBrush := SelectObject(dc, GetStockObject(NULL_BRUSH));
Rectangle(dc, 0, 0, Self.Width, Self.Height);
SelectObject(dc, OldBrush);
SelectObject(dc, OldPen);
DeleteObject(Pen);
ReleaseDC(Handle, Canvas.Handle);
end;
//制作透明窗体
procedure CreateParams(var Params: TCreateParams); override; //重载 CreateParams 过程的实现
procedure TForm1.CreateParams(var Params: TCreateParams);
begin
//先继承原来的 CreateParams 过程
inherited;
//然后修改 Param.ExStyle 的值,使窗体具有透明效果
Params.ExStyle := Params.ExStyle or WS_EX_TRANSPARENT;
end;
procedure TForm1.FormCreate(Sender: TObject);
begin
inherited;
//将画布的笔刷样式改成 bsClear 以及时清除窗体原来的内容,这样窗体就有透明效果
Canvas.Brush.Style := bsClear;
end;
- delphi杂记(转)
- delphi杂记
- Delphi小技巧杂记
- Delphi小技巧杂记
- Delphi小技巧杂记
- 杂记
- 杂记
- 杂记
- 杂记
- 杂记
- 杂记
- 杂记
- 杂记
- 杂记
- 杂记
- 杂记
- 杂记
- 杂记
- DataBinder.Eval用法范例
- PLEAC-Perl 教程 - Directories (Perl进阶者极力推荐)
- SQLServer技术(97)
- 图形图像处理-之-误差扩散 下篇
- ATI王国的缔造者何国源:国际化就像做比萨饼
- delphi杂记(转)
- SQLServer技术(98)
- 「基础」C#中的循环
- SQLServer技术(99)
- SQLServer技术(100)
- SQLServer技术(101)
- 转——SQL编码规范(收集)
- 色字头上一把刀【不顶勿进】
- SQLServer技术(102)