Unterschied zwischen "Self" und Form2 (MDI-Child-Formular)?

[Volker Z.]

Hallo,

naja, dass Self nichts mit der Variable zu tun hat wurde ja schon erklärt.

Zitat:

Es soll Buttons als eine Art Auswahl enthalten, von denen aus weitere Childfenster angezeigt werden können. Jedes Childfenster soll aber nur einmal angezeigt werden können.

Das könntest Du vielleicht so hinbiegen (pack folgendes in eine eigene Unit [im Folgenden mal sap.pas]):

Delphi-Quellcode:

function CreateForm (const FormClass : TCustomFormClass) : TCustomForm;
begin
  Result := FormClass.Create (Application.MainForm)
end;

function FindComponentByClass (const Component : TComponent; const ComponentClass : TComponentClass) : TComponent;
var
  i : Integer;
  c : TComponent;
begin
  Result := nil;
  for i := 0 to Component.ComponentCount - 1 do
    begin
      c := Component.Components [i];
      if c is ComponentClass then
        begin
          Result := c;
          Break
        end
    end
end;

procedure ShowMDIForm (const FormClass : TCustomFormClass);
var
  c : TComponent;
  f : TCustomForm;
begin
  c := FindComponentByClass (Application.MainForm, FormClass);
  if Assigned (c) then
    f := TForm (c)
  else
    begin
      f := CreateForm (FormClass);
      if not Assigned (f) then
        // Do whatever you want if it fails
    end;

  if f.WindowState = wsMinimized then
    f.WindowState := wsNormal
  else
    f.BringToFront
end;

In den Formularen dann jeweils ein:

Delphi-Quellcode:

procedure TFormX.FormClose(Sender: TObject; var Action: TCloseAction);
begin
  Action := caFree
end;

Und an den Stellen an denen ein weiteres MDIChild angezeigt werden soo

Delphi-Quellcode:

uses
  sap.pas;

procedure TFormY.ButtonClick(Sender: TObject);
begin
  ShowMDIForm (TFormX)
end;

Gruß

[Kalakmul]

Dank an alle für die Antworten.

@himitsu (kein "var" in der Deklaration)
Was mir noch nicht ganz klar ist:

Delphi-Quellcode:

unit Unit1;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls;

type
  TForm1 = class(TForm)
    btn1: TButton;
    procedure btn1Click(Sender: TObject);
  private
    { Private-Deklarationen }
  public
    { Public-Deklarationen }
  end;

var
  Form1: TForm1;

implementation

{$R *.dfm}

procedure TForm1.btn1Click(Sender: TObject);
begin
  (Sender as TButton).Caption := 'Änderung';
end;

end.

In diesem kleinen Programm wird "Sender" benutzt, um die Aufschrift von Button "btn1" zu ändern. In der Deklaration steht auch kein "var" bei Sender dennoch wird die Aufschrift verändert. Vermutlich liegt dies daran, dass die Visibility der verschiedenen Objekte nicht gleich ist. Soweit ich es jetzt verstanden habe, kann also in meinem Beispiel im Beitrag #1 das Formular sich selbst (self) nicht sehen wohl aber seine Member (wie also in diesem Beispiel oben "btn1") - schon etwas eigenartig.

Und wenn self auch nicht exakt Form2 ist (in #1) so bezieht es sich doch letztlich auf Form2, oder ich habe den Eintrag in der Wiki aus Sir Rufos Beitrag noch nicht verstanden:

Zitat:

Der Bezeichner Self verweist in der Implementierung einer Methode auf das Objekt, in dem die Methode aufgerufen wird.

[himitsu]

Da wird ja auch nicht die Referenz verändert, sondern etwas, auf das die Referenz verlinkt.

Du wolltest aber die Referenz (den Inhalt der Variable und nicht Etwas in dem, worauf die Referenz in der Variable zeigt) ändern.

Der Vergleich wäre also

Delphi-Quellcode:

procedure TForm1.btn1Click(Sender: TObject);
begin
  Sender := nil;  // oder Sender := btn2;
end;