Form mit Button auf anderer Form schließen

[Blubbel]

Hallo Freunde der Nacht

ich habe insgesamt 3 Formen, 2 davon sind eingabe-Dialoge.
Mainform ruft die Form "eingabe" auf. Diese ruft, wenn eine Eingabe getätigt wurde, die Form "Bearbeiten" auf. Wenn ich bei der form "Bearbeiten" einen Button klicke, soll sich die Form "Eingabe" Schließen.

Ich habe es Schon mit "Form3.close" und "Form3.Destroy" versucht. Beides funktioniert nicht.

Vielleicht habt ihre eine Idee... Die nicht ganz so kompliziert ist

Naja, das kann ja wohl nicht so schwer sein danke euch schonmal

edit//

gerade nochmal release probiert... geht auch nicht

Zitat:

---------------------------
Benachrichtigung über Debugger-Exception
---------------------------
Im Projekt *.exe ist eine Exception der Klasse EAccessViolation mit der Meldung 'Zugriffsverletzung bei Adresse 004CB70F in Modul '*.exe'. Lesen von Adresse 00000258' aufgetreten.

[Bummi]

Mit welchem Owner wird Form3 erzeugt (oder ist es automatisch erzeugt)?
Wir wird Form3 aufgerufen Showmodal oder Show?

[Blubbel]

Delphi-Quellcode:

  lForm := TForm3.Create(nil);

  with lForm do
  try
    if ShowModal = mrOK then
    begin
    end;
  finally
    FreeAndNil(lForm);
  end;

die form wird von der mainform aufgerufen.. will sie jediglch auf der form2 schließen

[Sir Rufo]

Zitat von Blubbel:

Delphi-Quellcode:

  lForm := TForm3.Create(nil);

  with lForm do
  try
    if ShowModal = mrOK then
    begin
    end;
  finally
    FreeAndNil(lForm);
  end;

die form wird von der mainform aufgerufen.. will sie jediglch auf der form2 schließen

Form3 ist lediglich eine globale Variable und kein irgendwie geartetes god-like Gedöns, was dir den Zugriff auf alle Instanzen von TForm3 gibt.

Wenn du also eine Instanz von TForm3 erstellst und willst diese von irgendwo behandeln/zugreifen, dann solltest du diese Instanz-Referenz auch weitergeben.

Wenn du eine Instanz von TForm2 auf die gleiche Art und Weise erzeugst, dann ist das auch nicht Form2 sondern eben eine Instanz von TForm2 (gleiches Spiel wie mit Form3 ).

Am klügsten wird es wohl sein, ein Event in TForm2 und eine passende Methode in TForm3 zu implementieren.

Diese Methode von TForm3 wird dann dem Event von TForm2 übergeben und dann bei Bedarf aufgerufen.

Delphi-Quellcode:

TForm3 = class( TForm )
public
  procedure CallbackMethod( Sender : TObject );
end;

TForm2 = class( TForm )
private
  FOnCallbackEvent : TNotifyEvent;
protected
  procedure DoCallback;
public
  property OnCallbackEvent : TNotifyEvent read FOnCallbackEvent write FOnCallbackEvent;
end;

procedure TForm2.DoCallback;
begin
  if Assigend( OnCallbackEvent ) then
    OnCallBackEvent( Self );
end;

[Blubbel]

Danke dir, werde es am nachmittag oder abend direkt ausprobieren.

Was würde ich bloß ohne euch machen

[Blubbel]

Sowas doofes habe es ganz einfach Lösen können. Wollte bevor ich den vorgeschlagenen Weg gehe etwas ausprobieren.

Delphi-Quellcode:

  with GForm do
  try
    if ShowModal = mrOK then
    begin
      Form1.CreateChartLines;
    end;
  finally
    FreeAndNil(GForm);
    self.Close;
  end;

Dort rufe ich erst die Form2 auf und im finally schließe ich Form3 einfach.