有谁会用delphi做出象"word"中菜单中最后打开的几个文件的效果?(100分)

Y

yfli

Unregistered / Unconfirmed

GUEST, unregistred user!

• 1999-09-22

• #1

有谁会用delphi做出象"word"中菜单中最后打开的几个文件的效果,请多多赐教.小弟驽钝,那位仁兄如有这类程序的源码,请寄一份到yfli@263.net,多谢,多谢.

 

L

liukeen

Unregistered / Unconfirmed

GUEST, unregistred user!

• 1999-09-22

• #2

1.每次打开文件时，把文件名（包括路径）记录在
INI文件中或注册表中。同时清除比较老的文件记录，
（根据当前记录个数）。
2。根据当前记录，动态生成菜单项。

 

Y

yysun

Unregistered / Unconfirmed

GUEST, unregistred user!

• 1999-09-22

• #3

ftp://ftp.cdrom.com/pub/delphi_www/ftp/d20free/mruflist.zip

 

W

www

Unregistered / Unconfirmed

GUEST, unregistred user!

• 1999-09-22

• #4

可以把最后打开的几个文件存在INI文件或注册表中，要注意个数不要太多，
要及时清掉最早打开的文件。

 

C

cytown

Unregistered / Unconfirmed

GUEST, unregistred user!

• 1999-09-22

• #5

dsp上许多类似的构件，找找看吧。
http://www.pobox.com/~bstowers/delphi/mine/files/mruflist.zip
另外，yysun是版主吧，请更改很多人分分时出现不能分的BUG（我可帮忙）。

 

J

jet

Unregistered / Unconfirmed

GUEST, unregistred user!

• 1999-09-22

• #6

用bcb写了一小段，点击菜单项open时通过OpenDialog打开文件，并将文件名
加入菜单。ini功能可以自己加上。
void __fastcall TForm1::Open1Click(TObject *Sender)
{
OpenDialog->Execute();
int i,j;
for(i=0;i<4;i++)
{
if(File1->Items[3+i]->Caption==" ")
{
File1->Items[3+i]->Caption=OpenDialog->FileName;
File1->Items[3+i]->Visible=true;
break;
}
else if (File1->Items[3+i]->Caption==OpenDialog->FileName)
{
j=i;
while ((j<3)&&(File1->Items[4+i]->Caption!=" "))
{
File1->Items[3+i]->Caption=File1->Items[4+j]->Caption;
j++;
}
File1->Items[j+3]->Caption=OpenDialog->FileName;
break;
}
else if (i==3)
{
for(j=0;j<3;j++)
File1->Items[3+j]->Caption=File1->Items[4+j]->Caption;
File1->Items[6]->Caption=OpenDialog->FileName;
}
}
}

 

C

CJ

Unregistered / Unconfirmed

GUEST, unregistred user!

• 1999-09-23

• #7

try this link u will find a dozen
http://vcl.vclxx.com/DELPHIGB/DEFAULT.HTM

 

Y

yfli

Unregistered / Unconfirmed

GUEST, unregistred user!

• 1999-10-05

• #8

对不起，这段时间机器坏了，无法上网请大家原谅。多人的答案接受了。谢谢大家。

 

W

whpjyj

Unregistered / Unconfirmed

GUEST, unregistred user!

• 1999-11-25

• #9

这个问题，我建议你去看看tale的那个电子小说阅读器的原代码，他的文件记录功能
就是这样的。通过记录到ini，然后在菜单中动态生成就可以了。我可以mail给你的
他的最新版了啊！！

 

M

menxin

Unregistered / Unconfirmed

GUEST, unregistred user!

• 1999-11-25

• #10

用个现成的控件吧.

 

D

DreamTiger

Unregistered / Unconfirmed

GUEST, unregistred user!

• 1999-11-28

• #11

是啊，我后来就直接用RX的TMruManager，很方便。

 

F

fatherlaw

Unregistered / Unconfirmed

GUEST, unregistred user!

• 1999-11-28

• #12

建立一个专用的历史目录，将新打开的项目信息保存下来，根据时间将最老的文件信息删去就行了。

 

J

Jams

Unregistered / Unconfirmed

GUEST, unregistred user!

• 1999-11-28

• #13

>>

 

R

Ridolph

Unregistered / Unconfirmed

GUEST, unregistred user!

• 1999-11-29

• #14

whpjyj：
给我mail 一份源程序好吗？
<a href="mailto:ridolph@371.net">ridolph@371.net</a>

 

K

kangxy

Unregistered / Unconfirmed

GUEST, unregistred user!

• 1999-12-12

• #15

去delphi4.4u.ru下载LMD控件包,TMRUList可完成此功能.
LMD中有很多好东东.且带Source.

 

B

bells

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2000-02-09

• #16

whpjyj:
please mail me one copy of the source.thanks.
jvjv@cmmail.com

 

Z

zcg

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2000-02-09

• #17

VC的这种实现方式是写注册表实现的，Delphi就得自己写了

 

B

beta

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2000-02-12

• #18

将每次打开的文件存入注册表不就行了吗?
比如最多5个,到了5个过后,每存进去一个,
就删除第一个,就可以了.
以后,只需要在程序打开时,将其内容加入菜单
就行了,很容易实现.

 

C

Chenlili

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2000-04-24

• #19

rxlib2.75

 

W

wjiachun

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2000-08-05

• #20

多人接受答案了。