DELPHI基础开发技巧

• procedure Tform1.Image1MouseDown(Sender: TObject; Button: TMouseButton;
  Shift: TShiftState; X, Y: Integer);
  var
  red,green,blue:byte ;
  i:integer;
  begin
  i:= image1.Canvas.Pixels[x,y];
  Blue:= GetBvalue(i);
  Green:= GetGvalue(i):
  Red:= GetRvalue(i);
  Label1.Caption:=inttostr(Red);
  Label2.Caption:=inttostr(Green);
  Label3.Caption:=inttostr(Blue);
  end;

  □◇[DELPHI]关于日期格式分解转换
  var year,month,day:word;now2:Tdatatime;
  now2:=date();
  decodedate(now2,year,month,day);
  lable1.Text :=inttostr(year)+'年'+inttostr(month)+'月'+inttostr(day)+'日';

  ◇[DELPHI]如何判断当前网络连接方式
  判断结果是MODEM、局域网或是代理服务器方式。
  uses wininet;
  Function ConnectionKind :boolean;
  var flags: dword;
  begin
  Result := InternetGetConnectedState(@flags, 0);
  if Result then
  begin
  if (flags and INTERNET_CONNECTION_MODEM) = INTERNET_CONNECTION_MODEM then
  begin
  showmessage('Modem');
  end;
  if (flags and INTERNET_CONNECTION_LAN) = INTERNET_CONNECTION_LAN then
  begin
  showmessage('LAN');
  end;
  if (flags and INTERNET_CONNECTION_PROXY) = INTERNET_CONNECTION_PROXY then
  begin
  showmessage('Proxy');
  end;
  if (flags and INTERNET_CONNECTION_MODEM_BUSY)=INTERNET_CONNECTION_MODEM_BUSY then
  begin
  showmessage('Modem Busy');
  end;
  end;
  end;

  ◇[DELPHI]如何判断字符串是否是有效EMAIL地址
  function IsEMail(EMail: String): Boolean;
  var s: String;ETpos: Integer;
  begin
  ETpos:= pos('@', EMail);
  if ETpos > 1 then
  begin
  s:= copy(EMail,ETpos+1,Length(EMail));
  if (pos('.', s) > 1) and (pos('.', s) < length(s)) then
  Result:= true else Result:= false;
  end
  else
  Result:= false;
  end;

  ◇[DELPHI]判断系统是否连接INTERNET
  需要引入URL.DLL中的InetIsOffline函数。
  函数申明为：
  function InetIsOffline(Flag: Integer): Boolean; stdcall; external 'URL.DLL';
  

• 上一页 [1] [2] [3] [4] [5] [6] [7] [8] [9] [10] [11] [12] [13] [14] [15] [16] [17] [18] [19] [20] [21] [22] [23] [24] [25] [26] [27] [28] [29] [30] [31] [32] 下一页 
• 复制本页网址和标题，发送给你QQ/Msn的好友一起分享
  
  
• DELPHI基础开发技巧 相关文章：
• ·Vista12个最实用操作技巧的基础课
• ·HTML基础:HTML的基本结构
• ·Java基础：你是否了解KVM的常量池
• ·搜索引擎优化的基础知识
• ·BPEL模型基础
• ·基础知识讲解 病毒的IFEO映像劫持技术
• ·初学者认识DOCTYPE的基础知识
• ·XHTML教程,简单认识XHTML基础知识
• ·交换机基础 第三层交换机技术
• ·PS基础教程 画笔应用之自定义画笔
• DELPHI基础开发技巧 相关软件
• ·《3D Max 动画基础教程》
• ·超频基础知识
• ·WTO基础知识
• ·全部知识学的基础
• ·财会基础课程
• ·鸟哥的linux私房菜：基础学习篇
• ·证券市场基础知识
• ·06同等学力英语辅导词汇语法部分讲义基础班
• ·06同等学力英语辅导阅读部分讲义基础班
• ·2006年1月自学考试法律基础与思想道德修养模拟试卷

上一篇:用Delphi实现整个网站图片的极速下载

下一篇:Windows的DDE原理

• 特别声明：本站除部分特别声明禁止转载的专稿外的其他文章可以自由转载，但请务必注明出处和原始作
• 者.文章版权归文章原始作者所有.对于被本站转载文章的个人和网站，我们表示深深的谢意。如果本站转
• 载的文章有版权问题请联系编辑人员,我们尽快予以更正. 转载请注明来源：http://www.hackhome.com

精品推荐

热点TOP10

特别推荐