首页 / DELPHI / delphi XE5下 andriod 广告图片的demo

delphi XE5下 andriod 广告图片的demo

内容导读

互联网集市收集整理的这篇技术教程文章主要介绍了delphi XE5下 andriod 广告图片的demo，小编现在分享给大家，供广大互联网技能从业者学习和参考。文章包含3559字，纯文字阅读大概需要6分钟。

内容图文

试了一下，关于好几个广告界面，左右滚动的效果：用TabControl 加上定时器实现即可。

1、TTabControl外观

TTabControl的外观由属性TabPosition控制，可选项包括：

tpTop 选项tab在控件上方

tpBottom 选项tab在控件下方

tpNone 以原点形式显示选项tab，在控件下方，如下图：

tpDots 以方格形式显示选项tab，在控件下方，如下图：

以下是源代码：

//每五秒滚动一次

Procedure TForm1.FormActivate(Sender: TObject);

Begin

Timer1.Interval := 5000;

End;

//自动滚动；

Procedure TForm1.Timer1Timer(Sender: TObject);

Begin

If TabControl1.ActiveTab <> TabControl1.Tabs[TabControl1.TabCount-1] Then

TabControl1.ActiveTab := TabControl1.Tabs[TabControl1.TabIndex+1]

Else

TabControl1.ActiveTab := TabControl1.Tabs[0];

End;

//手势编程,也可以不需要；

Procedure TForm1.TabControl1Gesture(Sender: TObject; const EventInfo: TGestureEventInfo; var Handled: Boolean);

Begin

Case EventInfo.GestureID Of //识别事件的手势

sgiLeft: //由右向左滑动手指

Begin

//如果不是最后一个tab，则选择下一个tab;如果是，则选择第一个。

If TabControl1.ActiveTab <> TabControl1.Tabs[TabControl1.TabCount-1] Then

TabControl1.ActiveTab := TabControl1.Tabs[TabControl1.TabIndex+1]

Else

TabControl1.ActiveTab := TabControl1.Tabs[0];

Handled := True; //已完成代码处理

End;

sgiRight://由左向右滑动手指

Begin

//如果不是第一个tab，则选取前一个tab；如果是，则选择最后一个。

If TabControl1.ActiveTab <> TabControl1.Tabs[0] Then

TabControl1.ActiveTab := TabControl1.Tabs[TabControl1.TabIndex-1]

Else

TabControl1.ActiveTab := TabControl1.Tabs[TabControl1.TabCount-1];

Handled := True;//已代码处理

End;

End;

原文：http://www.cnblogs.com/lingzhiwen/p/3560919.html

内容总结

以上是互联网集市为您收集整理的delphi XE5下 andriod 广告图片的demo全部内容，希望文章能够帮你解决delphi XE5下 andriod 广告图片的demo所遇到的程序开发问题。如果觉得互联网集市技术教程内容还不错，欢迎将互联网集市网站推荐给程序员好友。

内容备注

版权声明：本文内容由互联网用户自发贡献，该文观点与技术仅代表作者本人。本站仅提供信息存储空间服务，不拥有所有权，不承担相关法律责任。如发现本站有涉嫌侵权/违法违规的内容，请发送邮件至 gblab@vip.qq.com 举报，一经查实，本站将立刻删除。

内容手机端

扫描二维码推送至手机访问。

本文链接：https://qyyshop.com/info/1244704.html

来源：【匿名】

【下一篇】为何用Delphi程序写的POST不能下传图片

更多 ►

【delphi XE5下 andriod 广告图片的demo】教程文章相关的互联网学习教程文章

delphi XE5下 andriod 广告图片的demo【图】

试了一下，关于好几个广告界面，左右滚动的效果：用TabControl 加上定时器实现即可。 1、TTabControl外观 TTabControl的外观由属性TabPosition控制，可选项包括：tpTop 选项tab在控件上方tpBottom 选项tab在控件下方tpNone 以原点形式显示选项tab，在控件下方，如下图：tpDots 以方格形式显示选项tab，在...

delphi 线程教学第五节：多个线程同时执行相同的任务【代码】

转载自：https://www.cnblogs.com/lackey/p/6306368.html第五节：多个线程同时执行相同的任务 1.锁设，有一个房间 X ，X为全局变量，它有两个函数 X.Lock 与 X.UnLock;有如下代码： X.Lock; 访问资源 P; X.Unlock; 现在有A,B两个线程时空都要执行此段代码。当线程A执行了 X.Lock 之后，在没有执行完 X.Unlock 之前，第二个线程B此时也来执行 X.Lock ，线程B就会阻塞在 X.Lock 这句代码上。我们可以认为，此时，线程A进入房间，...

Delphi_02_Delphi程序的结构【代码】

一、工程文件program MultiUnit;{$APPTYPE CONSOLE}usesSysUtils,Unit1 in‘Unit1.pas‘;begin//引用unit1中的变量，因为是在接口部分定义所以可以引用strGreet:=‘Hello world‘;//调用unit1中的过程因为是在接口部分定义所以可以引用 Greeting(strGreet);//调用unit2中的函数;因为是在接口部分定义所以可以引用nAdd:=10;nAddfactor:=11;writeln(GetSum(nadd,naddfactor));{1、因为pai变量是在unit1单元的实现部分定义的，因此...

TabControl delphi

1．TTabControl 组件的典型用法TTabControl 组件使用起来，根本不会使程序简单化，所以不提倡使用此组件，可以用TPageControl组件代替。与多页组件不同的是，虽然Tab 组件上可以有一组按钮，但它们的客户区是公用的，当用户选择其中某个按钮时，将触发OnChange 事件。在处理OnChange 事件的句柄中，必须自己定义怎样操纵客户区上的内容。例如，可以用Tab 组件做一个图片管理器，用户选择不同的按钮，Tab 按钮的客户区就显示不同的内...

delphi的取整函数round、trunc、ceil和floor

例：var i, j: Integer;begin i := Round(1.5); // i等于2 j := Round(2.5); // j等于2end;在Delphi中使用Round函数得到的答案有时与我们所预期的会不太一样：采用的是四舍六入五留双。即当舍或入位大于或小于五时按四舍五入来处理，而当舍或入位等于五时，就要看前面一位是什么，根据奇进偶不进，它总是返回一个偶数值。例： i:= Round(11.5)//i等于12i:= Round(10.5)//i等于10这种Round其实是按照银行家算法...

转：用Delphi编写安装程序

http://www.okbase.net/doc/details/931 还没有亲自验证过，仅收藏当你完成一个应用软件的开发后，那么你还需要为该软件做一个规范化的安装程序，这是程序设计的最后一步，同时也是很重要的一步，因为运行安装程序往往是用户做的第一步操作。很多报刊文章介绍了许多如何利用installshield等工具软件来制作安装程序的方法，这种办法可以很快建立起较常见的安装模式，但用这种办法也有一些不足，如做成的安装程序一般较大；风格较单...

DELPHI语法基础学习笔记-Windows 句柄、回调函数、函数重载等（Delphi中很少需要直接使用句柄，因为句柄藏在窗体、位图及其他Delphi 对象的内部）

函数重载重载的思想很简单：编译器允许你用同一名字定义多个函数或过程，只要它们所带的参数不同。实际上，编译器是通过检测参数来确定需要调用的例程。下面是从VCL 的数学单元（Math Unit）中摘录的一系列函数：[delphi] view plain copy function Min (A,B: Integer): Integer; overload; function Min (A,B: Int64): Int64; overload; function Min (A,B: Single): Single; overload; function Min (A,B: Double): Double; o...

delphi xe10 麦克风、摄像头操作

TakePhotoFromCameraAction1: TTakePhotoFromCameraAction; // 通过手机摄像头获取图片TakePhotoFromLibraryAction1: TTakePhotoFromLibraryAction; //获取手机已存在图片ShowShareSheetAction1: TShowShareSheetAction;//用其它程序分享图片（Bitmap.Assign();）获取麦克风设置 FMX.MediaFMicrophone: TAudioCaptureDevice;FMicrophone := TCaptureDeviceManager.Current.DefaultAudioCaptureDevice;FMicrophone.FileName 设置路...

delphi 十进制十六进制转换【代码】

delphi有提供十进制转换成十六进制的函数： IntToStr(); 返回值为String// 十进制转十六进制 vari: integer;str: string; begini := 255; ShowMessage(IntToHex(I, 2)); //FF 2表示返回的位数 // 另外，Formart也有把十进制用十六进制输出的功能str := Format(‘%.2x‘, [i]);ShowMessage(str); // FF 返回结果跟IntToStr()函数想一样 end; delphi没有提供十六进制转成十进制的函数，但我们可以在十进制前面...

Delphi 获取时间的年月日

procedure TFrmLltj.FormActivate(Sender: TObject);var Present: TDateTime; Year, Month, Day, Hour, Min, Sec, MSec:Word;begin Present:= Now; DecodeDate(Present, Year, Month, Day); DecodeTime(Present, Hour, Min, Sec, MSec); Showmessage(DateToStr(Present)+‘ ‘+TimeToStr(Present,‘hh‘));//显示年月日时分秒 Showmessage(formatdatetime(‘hh:mm‘,time));//显示时分 cbb_qs_n.Text := inttostr(...

Delphi TMemoryStream写入到字符串和字符串写入到流【代码】

一、TMemoryStream数据写入到字符串里var lvStream:TMemoryStream; s:AnsiString; p: PAnsiChar; begin lvStream:= TMemoryStream( pvObject); GetMem(p, lvStream.Size + 1); FillChar(p^, lvStream.Size, 0); Move(lvStream.Memory^,p^,lvStream.Size); s:=p; FreeMem(p);View Code二、字符串写入到TMemoryStreamvarlvStream:TMemoryStream;s:AnsiString; begins:=‘abcdefghjkimoop‘;lvStream.Write(s[1], Length(s));lvStrea...

Delphi Char、Pchar 、String 相互转换【代码】

Delphi Char、Pchar 、String 相互转换1、String 与 PChar 转换1.1 String转化成PChar 2种方式vars:string;p,p1:PChar; begins:=‘Hi Delphi7‘;p:=PChar(s); //ShowMessage(p);p1:=StrAlloc(Length(s)+1);StrPCopy(p1,s);ShowMessage(p1);StrDispose(p1); end; 1.2 PChar转String 3种方式vars,s1,s2:string;p:PChar; begins:=‘Hi Delphi7‘;p:=PChar(s); //ShowMessage(p);s1:=p; //ShowMessage(s1);s2:=Str...

DELPHI - 最热教程

在ubuntu 上使用wine 运行Delphi win32...Delphi编程常用快捷键大全 delphi TDbGrid 右键 PopupMenu 菜单只...Delphi 的链式代码手把手教你用Delphi实现硬件版hello wo...Delphi ADO数据库控件（转）delphi程序员腾讯QQphp程序员面试题目整...Delphi 7连接MySql 5.5.15 Sqlite框架Delphi10.3 delphi 根据数据库结构生成TreeView

首页 / DELPHI / delphi XE5下 andriod 广告图片的demo

delphi XE5下 andriod 广告图片的demo

内容导读

内容图文

内容总结

内容备注

内容手机端

【delphi XE5下 andriod 广告图片的demo】教程文章相关的互联网学习教程文章

delphi XE5下 andriod 广告图片的demo【图】

delphi 线程教学第五节：多个线程同时执行相同的任务【代码】

Delphi_02_Delphi程序的结构【代码】

TabControl delphi

delphi的取整函数round、trunc、ceil和floor

转：用Delphi编写安装程序

DELPHI语法基础学习笔记-Windows 句柄、回调函数、函数重载等（Delphi中很少需要直接使用句柄，因为句柄藏在窗体、位图及其他Delphi 对象的内部）

delphi xe10 麦克风、摄像头操作

delphi 十进制十六进制转换【代码】

Delphi 获取时间的年月日

Delphi TMemoryStream写入到字符串和字符串写入到流【代码】

Delphi Char、Pchar 、String 相互转换【代码】

【转】DELPHI开始支持LINUX DOCKER

delphi线程同步

在delphi中如何解决空格的问题。。。。烦死了。。。。【代码】

DELPHI - 最新教程

DELPHI - 最热教程