1. //使窗口始终置于最前
SetWindowPos(handle,HWND_TOPMOST,0,0,0,0,SWP_NOSIZE+SWP_NOMOVE)
2.图标设置位置
3.if语句
If(max_zhi<Ran_num[i]) Then
begin
max_zhi:=Ran_num[i];
max_suoyin:=i;
end;
4.for循环
for i := 2 to 10 do
begin
If(max_zhi<Ran_num[i]) Then
begin
max_zhi:=Ran_num[i];
max_suoyin:=i;
end;
end;
5.动态数组下标以0开始
6.方法的使用
//首先要在type中定义方法名
procedure test();
然后再定义方法
procedure TForm1.test();
begin
showMessage('qwww');
end;
7.传值调用和传址调用,加了var就是传址调用
8.函数定义
|
function 函数名(参数1名称:参数类型; 参数2名称:参数类型......) : 返回值类型。
9.窗体控件
10.设置鼠标指针再组件上停留时显示提示信息的内容
11.窗体事件
12.鼠标键盘移动监听
13.label背景颜色变为透明,更改transparent属性
14.bitbutton可以通过glyph属性给按钮添加背景图片,
如果图片只显示一半的话,那可能是numglyphs设置成了2,意思是只显示二分之一,那么需要改为1,即全部显示
15.bitbtn可以通过设置kind来选择样式
16.edit控件的几个触发事件
17.maskedit控件,可以限制用户的输入
eg:只能输入两个字母^三个数字
18.pagecontrol和tabcontrol的区别,page可以分好多页比较好用
19.memo组件
20.memo打开文件乱码
将memo的字符集设为gb2312,把打开的文件字符集设为ansi
21.设置打开文件格式
OpenDialog1.Filter:='文档文件|*.TXT';
22.listbox列表框组件
23.枚举
type
week={Sunday,Monday,Tuesday,Wednesday}
24.case
case day of
Sunday: Edit.Text:whatDay(Sunday);
Wednesday: Edit.Text:whatDay(Wednesday);
end;
25.字节类型
26.记录类型
type
Fishoil=Record
name:String;
sex:String;
age:Integer;
end;
27.imeplementation下可以定义局部变量
28.With StringGrid1 do
begin
Cells[0,0]:='昵称';
end;
这样写可以简化语句,本来应该是要 StringGrid1.Cells[0,0]才可以
29.调出输入框,对中文不友好,建议中文后加上几个空格试试
30.写入文件
//如果写入后换行那么需要把Write换成WriteLn
31.源文件读取后复制到目标文件中
32.设置透明度
33.ListView添加行
with ListView1 do
begin
ListItem:=Items.Add;
ListItem.Caption:= IntToStr(0);
ListItem.SubItems.Add('第 '+IntToStr(0)+' 行');
ListItem.SubItems.Add('第三列内容');
//ViewStyle:=vsReport;
GridLines:=True;
end;
34.动态装入dll
35.隐式调用
36.隐式调用dll
var
Form3: TForm3;
Function Max(x,y,z:Integer):Integer;Stdcall; External 'Project10.dll';
Function Min(x,y,z:Integer):Integer;Stdcall; External 'Project10.dll';
implementation
{$R *.dfm}
procedure TForm3.Button1Click(Sender: TObject);
var
x,y,z,max_v:Integer;
begin
x:=StrToInt(Edit1.Text);
y:=StrToInt(Edit2.Text);
z:=StrToInt(Edit3.Text);
max_v:=max(x,y,z);
Edit4.Text:=IntToStr(max_v);
end;
end.
37.显式调用