paulfzm
- 浏览: 874148 次
- 性别:
- 来自: 杭州
-
最新评论
-
zj7243886：
非常感谢，这东西解决我的问题；谢谢你的分享
Linux 安装 jpeg-6b 错误 ./libtool 命令未找到 -
丶Sk.Mabon：
能让html也绕过吗。。机房限制很悲剧
绕过 <?PHP exit(’Access Denied’); ?> 限制 -
丶Sk.Mabon：
请教gzip.php 的写法。万分感谢！
apache 开启 gzip -
hyxj1220：
火狐中单纯的定义这样的样式，貌似不行，必须要让容器浮动
英文长文本换行CSS -
逆水寒龙：
太好了，正好用上，谢谢博主共享
Asp.net 将中文汉字转换成拼音首字和拼音全拼
文章列表
procedure CreateParams(var Params: TCreateParams); override;procedure TForm10.CreateParams(var Params: TCreateParams);begin inherited; with Params do begin style := style or WS_THICKFRAME; end;end;
//无边框,但可以调整大小
//no border BUT resizable
procedure TForm1.CreateParams(var Params: T ...
问题及解决方法
1.任务栏右键popup无法显示
Application 设置
Application.MainFormOnTaskbar := False;
2.程序窗口最大化后遮住任务栏
Form 设置
self.Align:=ALcLient;
其他相关
1.delphi 程序打开隐藏软件任务栏条
ShowWindow(Application.Handle,SW_HIDE);
在项目中viewSource添加
Application.MainFormOnTaskbar := False;
delphi 获取任务栏高度
- 博客分类：
- delphi 获取任务栏高度
var TrayWnd: HWnd; //任务栏句柄 Rec : TRect;begin TrayWnd := FindWindow('Shell_TrayWnd',nil);//得到任务栏句柄 GetWindowRect(TrayWnd, Rec); //获取任务栏尺寸 Showmessage('任务栏的高度是:' + IntToStr(Rec.Bottom - Rec.Top));end;
delphi 窗口阴影
- 博客分类：
- delphi 窗口阴影
放窗体创建事件里面
SetClassLong(Handle, GCL_STYLE, GetClassLong(Handle, GCL_STYLE) or CS_DROPSHADOW);
//窗体全透明，但窗体上的控件不透明
procedure TForm1.Button1Click(Sender: TObject);
Var
frmRegion, tempRegion: HRGN;
i: Integer;
Arect: TRect;
Begin
frmRegion := 0;
For I:= 0 To ControlCount - 1 Do Begin
aRect := Controls[i].BoundsRect;
OffsetRect( aRect, clientorigin.x - left ...
//delphi 窗口置顶
self.formstyle:=fsStayOnTop;
//c++
SetWindowPos(handle,HWND_TOPMOST,Left,Top,Width,Height,SWP_SHOWWINDOW)
delphi 制作圆角窗口
- 博客分类：
- delphi 制作圆角窗口
procedure TForm1.FormCreate(Sender: TObject);
var
Hnd: THandle;
begin
Hnd := CreateRoundRectRGN(0, 0, Width, Height, 15, 15);
SetWindowRGN(Handle, Hnd, True);
end;
作者：cashfly 发布：2012-03-27 15:12
最近准备换Delphi高版本来写程序，以前一直用7。想体验一下新版本带来的便捷，首先有一个体积问题，看下文介绍。
首先，在IDE里可以直接编译Win32，Win64和OSX的程序（当然，要调试运行OSX程序，你需要相应的环境）其次，FireMonkey没有VCL的控件丰富，比如FireMonkey没有RichEdit控件。第三，FireMonkey程序无论是独立运行还是调试运行，初始化都没有VCL程序流畅。显然是因为FireMonkey程序还要涉及硬件GPU的初始化工作。最后说说编译后的程序大小。其实最终得到的程序并不大，由于 ...
Delphi XE2 破解补丁注册机下载使用教程
http://hi.baidu.com/warrially/item/18651e711134d15e0c0a0764
在你的程序的主FORM 的 FORMCREATE 事件里面添加如下的代码：
procedure 主FORM.FormCreate(Sender: TObject);
var
errno:integer;
hmutex:hwnd;
begin
hmutex:=createmutex(nil,false,pchar(application.Title));
errno:=getlasterror;
if errno=error_already_exists then
begin
ShowMessage('程序已经在运行了');
Application.Terminate;
...
uses MSHtml;
//在控件标签additional中找到TApplicationEvents控件，拖到窗体上．在TApplicationEvents的OnMessage事件中加入以下代码：procedure TForm1.ApplicationEvents1Message(var Msg: tagMSG;var Handled: Boolean);begin if (Msg.message = wm_rbuttondown) or (Msg.message = wm_rbuttonup) or (msg.message = WM_RBUTTONDBLCLK) then ...
delphi弹出信息框大全
- 博客分类：
- delphi弹出信息框大全
delphi弹出信息框大全
1． 警告信息框 MessageBox(Handle,'警告信息框','警告信息框',MB_ICONWARNING); 2．疑问信息框 MessageBox(Handle,'疑问信息框','疑问信息框',MB_ICONQUESTION); 3．错误提示框 MessageBox(Handle,'错误信息框','错误信息框',MB_ ...
uses GIFImg; 2 procedure TForm1.FormCreate(Sender: TObject); 3 begin 4 // 先在窗体上放一个 TImage 组件：Image1； 5 Image1.Picture.LoadFromFile('
<body oncontextmenu="return false" onselectstart="return false" ondragstart="return false" onbeforecopy="return false" onmouseup=document.selection.empty() oncopy=document.selection.empty() onselect=document.selection.empty()></body> 讲上面红色显示的插入到网页中就 ...