我是初学者望大家帮助.(100分)

Y

yjfculy

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2003-11-13

• #1

两个问题:
问题1:我在DELPHI新建一工程,在窗体上加两个控件(LABEL1和IMAGE1),然后在
Procedure TForm1.FormCreate(Sender:Tobject);
begin
label1.caption:=image1.picture ;
{这行代码肯定不对,就想问如何实现标签的CAPTION属性显示IMAGE1的PICTURE的属性值 .}
end;

问题2.:
我有10个图像文件.
我想通过MONTH()得到当前月的月份.
然后我根据月份值显示图片一月显示图像文件1.JPG,二月显示图像文件2.jpg....
如何实现.?

 

桦

桦树皮

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2003-11-13

• #2

不会吧， 让caption等于picture？？？驴唇不对马嘴呀。说清楚一点

 

Y

yu_ting

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2003-11-13

• #3

case
Monthof(now) of
1: Image1.Picture.LoadFromFile('1.jpg');
2: .....
3:
end;
//同理了,但是Picture是无论如何也不能和Caption交换的

 

桦

桦树皮

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2003-11-13

• #4

你的第二个问题可以用drawtext函数画到图像上面。这个函数是个API，你查一下win32sdk就知道它的原型了。

 

Y

yjfculy

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2003-11-13

• #5

接受答案了.