摘要: //先来个例子:procedure TForm1.FormPaint(Sender: TObject);const S = '万一的 Delphi 博客';var font: TFont;begin font := TFont.Create; font.Name := '微软雅黑'; font.Style := [fsBold, fsItalic]; font.Color := clRed; font.Height := 72; Canvas.Font := font; Canvas.TextOut(10, 10, S); font.Free;end;//效果图 阅读全文
posted @ 2014-01-11 16:30 孤舟残月浅笑嫣然 阅读(388) 评论(0) 推荐(0) 编辑
摘要: 前言:Delphi 支持三种文件类型: 文本文件、记录文件、无类型文件。文本文件是以行为单位进行读、写的。由于每一行的长度不一定相同,不能计算出给定行在文件中的确切位置,因而只能顺序地读写。文本文件只能单独为读或写而打开,在一个打开的文本文件上同时进行读、写操作是不允许的。文本文件的打开需要两个步骤:1.文件变量与文件名关联;2.初始化读写。1.文件变量与文件名关联:AssignFile(VarTxt, FileName);FileName 如果省略路径将默认当前目录。2.初始化读写有三种方式:(1) Reset: 只读打开, 指针移到文件头;(2) Rewrite: 创建新文件并打开, 只写 阅读全文
posted @ 2014-01-11 16:23 孤舟残月浅笑嫣然 阅读(287) 评论(0) 推荐(0) 编辑
摘要: 本例效果图:代码文件:unit Unit1;interfaceuses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, StdCtrls;type TForm1 = class(TForm) Memo1: TMemo; Button1: TButton; procedure Button1Click(Sender: TObject); procedure FormCreate(Sender: TObject); end;var Form1: TForm1;implem... 阅读全文
posted @ 2014-01-11 16:20 孤舟残月浅笑嫣然 阅读(297) 评论(0) 推荐(0) 编辑
摘要: procedure TForm1.Memo1Click(Sender: TObject);begin Text := Format('当前列:%d, 当前行:%d', [Memo1.CaretPos.X, Memo1.CaretPos.Y]);end;//用 API 实现procedure TForm1.Memo1Click(Sender: TObject);var LineY,LineX: Integer;begin LineY := SendMessage(Memo1.Handle,EM_LINEFROMCHAR,Memo1.SelStart,0); LineX := Se 阅读全文
posted @ 2014-01-11 16:19 孤舟残月浅笑嫣然 阅读(205) 评论(0) 推荐(0) 编辑
该文被密码保护。 阅读全文
posted @ 2014-01-11 13:41 孤舟残月浅笑嫣然 阅读(4) 评论(0) 推荐(0) 编辑
摘要: 使用这种功能必须使用 OnKeyPress 事件,该事件是在窗体中获得键盘输入的焦点,并且在用户按键时发生。OnKeyPress 事件中有个重要参数:Key。Key 参数为Char 型,它能够获得用户的按键值。下面的代码就只能输入0~9 之间的数字,且只能输入一个小数点,按下其他键时无效。1 procedure TForm1.Edit1KeyPress(Sender: TObject; var Key: Char);2 begin3 if not (key in ['0'..'9','.',#8]) then4 key:=#0;5 if (key 阅读全文
posted @ 2014-01-11 09:57 孤舟残月浅笑嫣然 阅读(1021) 评论(0) 推荐(0) 编辑