Child.filepath:=Name; //将打开的文件名赋予打开的子窗口,因为后面经常要用
Child := TMDIChild.Create(Application); 还没建立就赋值怎么能对呢?
Child := TMDIChild.Create(Application); 还没建立就赋值怎么能对呢?
解决方案 »
- printer对象的引用
- 网上下载的businessskinform,能不能用在商业软件上?
- delphi中的冒号问题
- 各位大侠,问一个程序打包的问题,困扰多时
- 公司要求用Delphi,本人从C++ Buider 转过来,先求Delphi7.0两CD版的下载地址!
- 高手请进:在Delphi三层ADO连接时,当在Oracle英文字符集写入中文时出现乱码!
- Delphi中打印报表如何横向打印?
- 如何调用远程的com+组件????
- 怎样隐藏RadioGroup容器上的组件
- 如何在Delphi中显示和存取Word文档之急上加急!!!
- 关于Timage与TGraphic使用的问题
- ERP系统中的可通用性模块
应该在Create后吧!?
太奇怪了
showmessage(self.filepath);
showmessage(self.Captition);
怎么现在 CSDN多了那么多规矩,连自己回帖都不能大于三次
2、Loaded下面当然出不来,在onshow的地方显示就可以了。
我的DBGird还要根据它来显示数据库呢
再说我在ChildForm添加个按钮,结果按钮按下时候我也得不到
按钮是怎么回事啊??
Child := TMDIChild.Create(Application);
之后使用
Child.filepath:=Name; //将打开的文件名赋予打开的子窗口,因为后面经常要用
的,然后在childwin的click事件里showmessage(self.filepath);
的。
我的filepath是string
interfaceuses Windows, Classes, Graphics, dialogs,Forms, Controls, StdCtrls, ExtCtrls;type
TMDIChild = class(TForm)
Memo1: TMemo;
Panel1: TPanel;
Button1: TButton; procedure FormClose(Sender: TObject; var Action: TCloseAction);
procedure Button1Click(Sender: TObject);
private
{ Private declarations }
public
filepath:String;
end;implementation{$R *.DFM}procedure TMDIChild.FormClose(Sender: TObject; var Action: TCloseAction);
begin
Action := caFree;
end;procedure TMDIChild.Button1Click(Sender: TObject);
begin
showmessage(self.filepath);
end;end.
unit Main;interfaceuses Windows, SysUtils, Classes, Graphics, Forms, Controls, Menus,
StdCtrls, Dialogs, Buttons, Messages, ExtCtrls, ComCtrls, StdActns,
ActnList, ToolWin, ImgList;type
TMainForm = class(TForm)
MainMenu1: TMainMenu;
File1: TMenuItem;
FileNewItem: TMenuItem;
FileOpenItem: TMenuItem;
FileCloseItem: TMenuItem;
Window1: TMenuItem;
Help1: TMenuItem;
N1: TMenuItem;
FileExitItem: TMenuItem;
WindowCascadeItem: TMenuItem;
WindowTileItem: TMenuItem;
WindowArrangeItem: TMenuItem;
HelpAboutItem: TMenuItem;
OpenDialog: TOpenDialog;
FileSaveItem: TMenuItem;
FileSaveAsItem: TMenuItem;
Edit1: TMenuItem;
CutItem: TMenuItem;
CopyItem: TMenuItem;
PasteItem: TMenuItem;
WindowMinimizeItem: TMenuItem;
StatusBar: TStatusBar;
ActionList1: TActionList;
EditCut1: TEditCut;
EditCopy1: TEditCopy;
EditPaste1: TEditPaste;
FileNew1: TAction;
FileSave1: TAction;
FileExit1: TAction;
FileOpen1: TAction;
FileSaveAs1: TAction;
WindowCascade1: TWindowCascade;
WindowTileHorizontal1: TWindowTileHorizontal;
WindowArrangeAll1: TWindowArrange;
WindowMinimizeAll1: TWindowMinimizeAll;
HelpAbout1: TAction;
FileClose1: TWindowClose;
WindowTileVertical1: TWindowTileVertical;
WindowTileItem2: TMenuItem;
ToolBar2: TToolBar;
ToolButton1: TToolButton;
ToolButton2: TToolButton;
ToolButton3: TToolButton;
ToolButton4: TToolButton;
ToolButton5: TToolButton;
ToolButton6: TToolButton;
ToolButton9: TToolButton;
ToolButton7: TToolButton;
ToolButton8: TToolButton;
ToolButton10: TToolButton;
ToolButton11: TToolButton;
ImageList1: TImageList;
procedure FileNew1Execute(Sender: TObject);
procedure FileOpen1Execute(Sender: TObject);
procedure HelpAbout1Execute(Sender: TObject);
procedure FileExit1Execute(Sender: TObject);
private
{ Private declarations }
procedure CreateMDIChild(const Name: string);
public
{ Public declarations }
end;var
MainForm: TMainForm;implementation{$R *.DFM}uses ChildWin, About;procedure TMainForm.CreateMDIChild(const Name: string);
var
Child: TMDIChild;
begin
{ create a new MDI child window }
Child := TMDIChild.Create(Application);
Child.Caption := Name;
Child.filepath:=name;
if FileExists(Name) then Child.Memo1.Lines.LoadFromFile(Name);
end;procedure TMainForm.FileNew1Execute(Sender: TObject);
begin
CreateMDIChild('NONAME' + IntToStr(MDIChildCount + 1));
end;procedure TMainForm.FileOpen1Execute(Sender: TObject);
begin
if OpenDialog.Execute then
CreateMDIChild(OpenDialog.FileName);
end;procedure TMainForm.HelpAbout1Execute(Sender: TObject);
begin
AboutBox.ShowModal;
end;procedure TMainForm.FileExit1Execute(Sender: TObject);
begin
Close;
end;end.