多页面记事本的打开文件问题

Question

我用RichEdit和PageControl做了个多页面记事本,将其设为txt的默认打开程序之后,当双击打开一文件后,如何实现再双击另一文件时,不再运行一个新的程序,而直接在当前程序中新建一个页面后打开文件.

Answer 1

你应该在工程文件中加入这样的代码,防止运行同一个应用程序的两个实例var
  prev:THandle;prev:=FindWindow('你的主窗体类名',nil);
if prev<>0 then
begin
  处理prev窗口,新建一个页面,打开文件;
  Halt;
end;

Answer 2

你可以这么做，具体代码就不写了：
1、 mainform.caption:='temp'
2、 h:=FndWindow(...,'temp')
3、 if h<>0 then 
       mainform.caption:=你的caption
       新建
     else 
       begin
        sendMessage(h,打开又一个文件，文件名,...);
        halt;
    end;

Answer 3

那里需要这么麻烦啊!直接写一个加载文件过程，每次双击txt打开的时候都调用这个过程去打开文件，然后在这个过程中判断，if (新变量,记录是否已经打开文件) then OpenFile...