摘要：
{memo1.Font.stylefsBold 粗体fsItalic 斜体fsUnderline 下划线fsStrikeOut 删除线返回值：Boolean}//style1memo1.Font.style:=[fsBold,fsItalic,fsUnderline,fsStrikeOut];//style2memo1.Font.style:=[fsBold];通过 Wiz 发布 阅读全文
posted @ 2012-06-02 10:13
XE2011
阅读(117)
评论(0)
推荐(0)
摘要：
功能说明：MapWindowPoints限制鼠标的位置varpos: TRect;{公共声明}procedureTForm1.Button1Click(Sender: TObject);beginpos:=panel1.BoundsRect;MapWindowPoints(handle,0, pos,2);// 座标换算ClipCursor(@pos);end;procedureTForm1.Pa... 阅读全文
posted @ 2012-06-02 10:13
XE2011
阅读(205)
评论(0)
推荐(0)
摘要：
//窗口融合技术{创建2个窗体 form1 form2panelbutton1button2设置panel的DockSite:=true;}//代码没用procedure TForm1.Button1Click(Sender: TObject);beginform2.ManualDock(Form1.Panel1,nil,alNone);end;procedure TForm1.Button2Cl... 阅读全文
posted @ 2012-06-02 10:13
XE2011
阅读(339)
评论(0)
推荐(0)
摘要：
procedure TForm1.Button1Click(Sender: TObject);begin{直接加载当前目录下的文件,文件必须得存在，否则出错}Memo1.Lines.LoadFromFile('Unit1.pas');end;procedure TForm1.Button2Click(Sender: TObject);begin{直接在当前程序目录下保存文件，如果文件不存在程序会自... 阅读全文
posted @ 2012-06-02 10:13
XE2011
阅读(278)
评论(0)
推荐(0)
摘要：
//listbox dragDrop DragOverprocedure TForm1.Edit1DragOver(Sender, Source: TObject; X, Y: Integer;State: TDragState; var Accept: Boolean);beginAccept := True;end;procedure TForm1.Edit1DragDrop(Sender, ... 阅读全文
posted @ 2012-06-02 10:13
XE2011
阅读(185)
评论(0)
推荐(0)
摘要：
//RegisterHotKey注册全局热键注册全局热键private{ Private declarations }procedure HotKeyDown(var Msg: Tmessage); message WM_HOTKEY;{varForm1: TForm1; }HotKeyId:Integer; //声明变量procedure TForm1.HotKeyDown(var Msg: T... 阅读全文
posted @ 2012-06-02 10:13
XE2011
阅读(609)
评论(0)
推荐(0)
摘要：
{使用任意组件拖动窗体} //PerformCTRLS(Form1,Button); //放在控件的MouseDown事件下 procedurePerformCTRLS(Form:TForm;Button:TMouseButton); begin ifButton=mbLeftthen begin ReleaseCapture; Form.Perform(wm_syscommand,$F012,0... 阅读全文
posted @ 2012-06-02 10:13
XE2011
阅读(160)
评论(0)
推荐(0)
摘要：
PageControl1 tabsheet1.Show;tabsheet2.Show;tabsheet3.Show;通过 Wiz 发布 阅读全文
posted @ 2012-06-02 10:13
XE2011
阅读(95)
评论(0)
推荐(0)
摘要：
//overload 函数或过程重载重载的思想很简单：编译器允许你用同一名字定义多个函数或过程，只要它们所带的参数不同。实际上，编译器是通过检测参数来确定需要调用的例程。下面是从VCL的数学单元（Math Unit）中摘录的一系列函数：function Min (A,B: Integer): Integer; overload;function Min (A,B: Int64): Int64; o... 阅读全文
posted @ 2012-06-02 10:13
XE2011
阅读(178)
评论(0)
推荐(0)
摘要：
//reapeat until计算1累加到100的和procedure TForm1.Button1Click(Sender: TObject);vari,sum:integer;begini:=1;sum:=0;repeatsum:=sum+i;i:=i+1;until i>100;showmessage('1ÀÛ¼Óµ½100µÄºÍΪ'+inttostr(sum));end;通过 Wiz ... 阅读全文
posted @ 2012-06-02 10:13
XE2011
阅读(263)
评论(0)
推荐(0)
摘要：
//使窗体标题栏文字右对齐private{ Private declarations }protectedprocedure CreateParams(var Params: TCreateParams); override;procedure TForm1.CreateParams(var Params: TCreateParams);begininherited;params.ExStyle:... 阅读全文
posted @ 2012-06-02 10:13
XE2011
阅读(167)
评论(0)
推荐(0)
摘要：
功能说明：PostMessage模拟按键procedureTForm1.Button1Click(Sender: TObject);//模拟在Edit控件中按下a键beginPostMessage(Edit1.Handle, WM_KEYDOWN,65,0);end;procedureTForm1.Timer1Timer(Sender: TObject);//模拟在窗体中按下Tab键beg... 阅读全文
posted @ 2012-06-02 10:13
XE2011
阅读(1031)
评论(0)
推荐(0)
摘要：
//Perform_程序运行时拖动组件//那个控件必须是少状态正的组件publicprocedure AppMessage(var msg: tmsg;var handlede: boolean);{ Public declarations }procedure TForm1.FormCreate(Sender: TObject);beginapplication.OnMessage := App... 阅读全文
posted @ 2012-06-02 10:13
XE2011
阅读(137)
评论(0)
推荐(0)
摘要：
//浮动工具栏{窗体是否要隐藏，重要的是要判断是否在操作中，通过窗体的Active属性，可以确定窗体是否具有焦点。在窗体有焦点时，该窗体正在被操作，这时需要完全显示在屏幕当中；如果窗体没有焦点，通过设置窗体到屏幕的高度来确定窗体的隐藏部分。在TTimer组件的OnTimer事件中，窗体没有焦点时，隐藏工具栏.在窗体上添加TTimer组件和TImage组件设置窗体Form1的属性}{以图片的形状作为... 阅读全文
posted @ 2012-06-02 10:13
XE2011
阅读(176)
评论(0)
推荐(0)
摘要：
功能说明：openpicturedialog1在对话框中预览图片procedureTForm1.Button1Click(Sender: TObject);beginifOpenPictureDialog1.Executethenbeginshowmessage(OpenPictureDialog1.FileName);end;end;通过 Wiz 发布 阅读全文
posted @ 2012-06-02 10:13
XE2011
阅读(145)
评论(0)
推荐(0)
浙公网安备 33010602011771号