如何在PageControl控件中的每一页显示bmp文件(50分)

N

nj_xxq

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2003-08-07

• #1

如何在PageControl控件中的每一页显示bmp文件或jpg文件,不要用Image控件

 

H

huazai

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2003-08-09

• #2

procedure TForm1.Button1Click(Sender: TObject);
var
c: TCanvas;
begin { TODO : 动态创建画布 }
c := TControlCanvas.Create;
TControlCanvas(c).Control := SElf.TabSheet1;
c.Brush.Style := bsClear;
c.Pen.Color := clBlue;
// c.Rectangle(5, 5, 15, 15);
c.Draw(0, 0, image1.Picture.Bitmap);
c.Free;
end;

 

N

nj_xxq

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2003-08-10

• #3

我用的是CB，我正在实验，若成功的话马上散分

 

N

nj_xxq

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2003-10-27

• #4

我实验了一下，不能及时刷新，用一个按钮可以，但直接转换到某一页则不能及时刷新，这个解决马上散分，我最近经常出差，故未能及时回复，请原谅则个。

 

A

app2001

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2003-10-27

• #5

procedure TForm1.PageControl1Change(Sender: TObject);
这个事件中不行吗？？

 

N

nj_xxq

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2003-10-28

• #6

我发的邮件传输失败，故这么迟才回复。在change事件中不行，就是不能及时刷新