当前位置: 源码素材网 » Delphi教程 » 详情页

Delphi Randomize、MessageBox、PChar、Edit光标位置等相关用法示例

  •   时间:2020-01-03
  • 概述:Random 随机数 MessageBox PChar

(1)if not (key in ['0','1'..'9',#13,#8]) then //判断按下的是否为数字键、回车键和退格键, #0表示没有任何内容,#32表示空格。

(2)Delphi中Randomize方法用来随机初始化数据,如果随机产生100以内的整数不用randomize,则显示出的数字将呈现一定的规律性。

(3)Label的Transparent属性用来设置Label的显示方式是否透明显示。

(4)MessageBox显示消息: MessageBox(句柄,消息,消息框名,类型) 例如:

MessageBox(0,PChar(‘你好’+edit1.text),‘欢迎你’,MB_OK)
MessageBox(0,PChar(‘你好’+edit1.text),‘提示’,MB_ICONASTERISK and MB_ICONINFORMATION)//提示框
MessageBox(0,PChar(‘密码不能为空!’),‘警告’,MB_ICONEXCLAMATION)//警告框

例如: if  MessageBox(0,PChar(‘你好’),‘欢迎你’,MB_OK)= idok then

( 5)PChar和String互转 PChar转String:   Str := strPas(Pchar类型); String转PChar:   pch:= PChar(string类型);

(6)Edit 文本的选择与光标位置

procedure TForm1.Button1Click(Sender: TObject);
begin
  Edit1.SetFocus;                           //给于焦点
  SendMessage(Edit1.Handle,EM_SETSEL,0,1);  //选择第一个字符
  SendMessage(Edit1.Handle,EM_SETSEL,0,-1); //全选
  SendMessage(Edit1.Handle,EM_SETSEL,1,1);  //光标移到第一个字符后面
  SendMessage(Edit1.Handle,EM_SETSEL,0,0);  //光标移到开始
  SendMessage(Edit1.Handle,EM_SETSEL,-1,0);  //光标移到开始

(7)集合定义

type
  TSet = set of (A,B,C);//定义集合
var
  set1: TSet;         //使用集合
begin
  set1 := [A,B];    
  if A in set1 then
    ShowMessage('集合 set1 包含 A');
end;

    相关内容:

    相关声明:

      若“Delphi Randomize、MessageBox、PChar、Edit光标位置等相关用法示例”有损您的权益,请告之我们删除内容。
      部分文章来源于网络,版权归原作者所有。