Habe nur relevantes hineingepackt, dies ist eine Unterform. In dieser Variante muß die gesuchte Form der MDIParent sein! Die
Unit des Parents muß in der UsesClausel stehen, bei mir UHauptform und das Fenster THauptform.
Anleitung:
Dann wird die Property Mainform deklariert als THauptform. Dies muß eine Property sein, sonnst würde der Getter uns Setter nicht angesprochen werden. Diese werden auch noch in Private deklariert. Als letztes packt man noch flux eine Procedure namens Setter und eine Funktion namens Getter in den Implementation-Teil.
Die Hauptform
Delphi-Quellcode:
unit UUnterform;
interface
uses
System.Drawing, System.Collections, System.ComponentModel,
System.Windows.Forms, System.Data, UHauptform;
type
THauptform=
class(System.Windows.Forms.Form)
private
function getter : THauptform;
procedure setter (Form : THauptform);
property Mainform : THauptform
read getter
write setter ;
end;
implementation
uses UBuecher;
function TBuecher.getter : THauptform;
begin
result := MDIParent
as THauptform;
end;
procedure TBuecher.setter(Form : THauptform);
begin
MDIParent := Form;
end;
Hoffe das reicht. Bei mir funktioneirt es zumindest
