delphixe5教程

Ⅰ Delphi XE 5 中 TListBox的OnMeasureItem 中 改变高度Height 运行结果还是设定的ItemHeight，高分求解决

procereTForm1.FormCreate(Sender:TObject);
var
I:Integer;
begin
ListBox1.Style:=lbOwnerDrawVariable;
forI:=1to50do
ListBox1.Items.Add(Format('Item%d',[I]));
end;

procereTForm1.ListBox1MeasureItem(Control:TWinControl;Index:Integer;
varHeight:Integer);
begin
ifIndexmod2=0then
Height:=36
else
Height:=24;
end;

procereTForm1.ListBox1DrawItem(Control:TWinControl;Index:Integer;
Rect:TRect;State:TOwnerDrawState);
var
R:TRect;
begin
withListBox1.Canvasdo
begin
//背景色
ifState*[odSelected,odFocused]<>[]then
Brush.Color:=clRed
else
Brush.Color:=ListBox1.Color;
FillRect(Rect);
//文字
ifState*[odSelected,odFocused]<>[]then
Brush.Color:=clHighlightText
else
Brush.Color:=ListBox1.Font.Color;
R:=Rect;
InflateRect(R,-4,0);
SetBkMode(Handle,TRANSPARENT);
DrawText(Handle,ListBox1.Items[Index],-1,R,
DT_SINGLELINEorDT_VCENTER);
//如果有焦点，则再绘制一次焦点框，达到擦除的目的
ifodFocusedinStatethen
DrawFocusRect(Rect);
end;
end;

Ⅱ delphi xe 如何实现报表功能

那就用FastReport好了。当然也可以用Office来做报表，看复杂程度了。
安装FastReport步骤：
1.运行安装目录下Recompile.exe，选中相应项，（最后一项要选All package），编译所有包
2.运行Delphi
3.Tools菜单下 Options-Library-Library path，添加安装目录下 Lib15子目录
4.Component菜单－Install Package-Add,选中Lib15下所有Dcl打头的BPL包，OK：）

Ⅲ 为什么Delphi的教程那么少

以下一系列原因至使Delphi的用户群越来越少，所以资料也就越来越少，原意为Delphi写书的人就越来越少。

1、Delphi的实际使用人群越来越少，Delphi工程师的就业前景越来越小。
2、Delphi的后期版本除一些特别点上有不同外，主要操作、界面是很类似的，掌握了Delphi7，其后续版本对脑子不太笨的技术人员来说，其本上就都掌握了。一些不同的地方，上网查查多数就懂了。
3、Delphi主要用于数据库的二层架构的客户端开发，当前，基于这种二层架构的数据库系统的安全性越来越被人认识到，所以只要安全要求不高的环境下才有用，所以，市场越来越小，所以用它的人越来越少。
4、当前的电脑应用越来越网络化，基于.net、基于网站开发、基于3层架构的开发越来越被人看重，所以，Delphi的使用人群越来越少，随之而来的结果，自然是资料也越来越少。
5、也可以使用Delphi的最新版本进行.net的网站开发，但，很明显，不如使用微软的VS系列，因为微软自身掌握了核心技术，稳性性、易用性、通用性、使用人群都要比Delphi广。
6、与Delphi的出品公司的运作理念也有很大的关系，Delphi与BCB原来是宝兰公司的，后来被Embarcadero（易愽龙）收购，两个公司对市场的运作都很菜，宣传不利，产品又以天价卖，其结果是正规公司用不起，非正规公司及个人用户用盗版。

Ⅳ 如何用delphi做三层结构中的中间层。

1、调用DataModel中的控件必须在先引用Datemodel的单元，在implementation下面加入以下语句uses DataModel的单元名称;
2、必须改变窗体的创建顺序，datamodel窗体必须先于引用该窗体控件的窗体创建
三层结构
应用层：
一、需要三个数据控件：
Adoconnect
AdoQuery
DataSetProvider
二、联接顺序：
SQL数据库<--Adoconnect<--Adoquery<--DataSetProvider
三、属性设置：
Adoconnect：
1、ConnectionString
2、Connected
Adoquery:
1、connection
2、Active
DataSetProvider:
1、DataSet
2、option.poAllowCommand:=true

Ⅳ 怎么学delphi xe

1、学习语法。语法很关键，有本书叫做《Pascal 精要》，里面的内容讲的很好。 2、组件的使用。delphi有很多组件，可以加快编程的速度和减轻难度，有本《delphi组件参考大全》，里面的内容涵盖了组件板上的几乎所有组件，可以当做参考书使用。 3、多看实例。有本《Delphi编程实例与技巧》，多看实例里面的代码，研究一下搞明白它，学习别人的编程思路，试着自己动手做做，提高自己的编程水平。 最后，使用一些辅助的工具，加快编程效果，推荐：CnPack IDE 专家包、vclskin。

Ⅵ 自学成功DELPHI的人进

1: 先学 Pascal , Object Pascal.
只要学习pascal的语法就行,比如变量声明,各种操作符,关键字等.
不管那种语言的语句基本上都有三种: 顺序语句,条件语句,循环语句.

2:然后学delphi的IDE开发环境,(这个就是指你所言的编译工具使用方法)
因为现在pascle的环境很难找了,也不好用,都是dos下的东东,所以"1"的基础学明白了,就可以打开delphi的IDE环境下练手了,,
初期可以编一些简单的小东西,增加自己的信心: 比如说计算器啦等等.呵呵,我觉得编个计算机可以很快的熟悉pascal的基本语法和delphi IDE的基本控件.

3: 下面就是要熟悉delphi IDE下各种常用的控件: 按钮,输入框,下拉框,时间选择框,对话框,以及他们的各个属性,事件等. delphi 是采用事件驱动的,
一定要了解各个控件的"事件"...

4: 进阶阶段,可以找些delphi连接数据库的例子, 了解delphi 的 ADO组件.
同时还要了解一般数据库的特性,比如Access,sqlserver,mysql,以至于oracle等..

5: 在往上,,网络编程,三层,自己开发组件玩...好多东西哦..

6: 总之,,delphi 在WIN32应用方面,,很强大,,,呵呵...

Ⅶ delphi XE 5 调用窗体 登陆窗体制作

直接关闭的时候Form会自动设置ModalResult为mrCancel即2，所以会跑到case 2里面去的
其实这本来也是正常的，大部分时候直接关闭就等于点击取消按钮
如果你非要判断是不是由按钮取消的，建议你加个变量判断，比如用按钮的Tag
如果按了按钮就设置这个变量，用这个变量就可以判断出是按钮点击的还是直接关闭的

Ⅷ Delphi视频教程

《Delphi视频教程全集》
http://yaqu.315safe.com/Article/show.asp?id=1003

《用多媒体学Delphi》(Delphi)视频教程20讲[DVDRip]
http://lib.verycd.com/2005/01/15/0000035131.html

《DelPhi 7 视频教程 5.1.88》
http://www.onlinedown.net/soft/33599.htm

<<delphi视频教程>>
http://www.rosipay.com/367/32945.html

Ⅸ Delphi 2010 入门教程，越简单越好，新手

================步骤：
1、运行Delphi
默认会创建一个名为Project1的Application，并且有一个默认的主窗口
2、从控件面板的Standard页中拖一个按钮控件到Form1上，会默认命名为Button1
3、双击Button1，写上
ShowMessage('hello,world!');
4、点击Debug工具栏上的Run按钮，或按F9功能键运行
5、运行时 点击Button1按钮，就可以看到 hello, world!

================代码结果：
单元文件（扩展名为.pas）

HelloWorld.pas
unit Unit1;

interface

uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, StdCtrls;

type
TForm1 = class(TForm)
Button1: TButton; // 按钮
procere Button1Click(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;

var
Form1: TForm1;

implementation

{$R *.dfm}

procere TForm1.Button1Click(Sender: TObject);
begin
ShowMessage('Hello,world!');
end;

end.
================其他文件还包括:
工程文件（扩展名为.dpr），
DFM文件（扩展名为.DFM），
这些都是在作以上步骤时自动生成的。