erst mal danke. ich hab mich mal mit der anwendung beschäftigt und denn Quelltext insofern übernommen, was für mich von interesse ist. Will ich nun das Programm starten bekomme ich die Fehlermeldung:
[Fataler Fehler] Unit1.pas(24): Datei nicht gefunden: 'ChildWin.dcu'
...mhm...
Code:
unit Unit1;
interface
uses
Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
StdCtrls;
type
TForm1 = class(TForm)
Button1: TButton;
procedure Button1Click(Sender: TObject);
private
{ Private declarations }
procedure CreateMDIChild(const Name: string);
public
{ Public declarations }
end;
var
Form1: TForm;
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;
end;
procedure TForm1.Button1Click(Sender: TObject);
begin
CreateMDIChild('NONAME' + IntToStr(MDIChildCount + 1));
end;
end.
Das ist mein Code den ich aus dem von Delphi vorgegebenen Beispiel genommen hab.