Shape schließen

[Andy Nightingale]

Hallo Leute,
ich habe auf Form1 (Main). einen Button mit dem öffne ich eine Form (Kalender).

Code: Alles auswählen

procedure TForm1.BCMaterialDesignButtonKalenderClick(Sender: TObject);
begin
    if not Assigned(FKalender) then
    begin
    FKalender:= TFKalender.Create(Self); 
    BGRAShapeKalender.Visible := True; 
end;       
    

Soweit so gut. Nun möchte ich das wenn ich die Form Kalender schließe das sich das Shape in Form1schließt. Das machte ich so:

Code: Alles auswählen

procedure TFKalender.FormClose(Sender: TObject; var CloseAction: TCloseAction);
begin
  (Application.MainForm as TForm1).BGRAShapeKalender.Visible := False;
end;          

Das funktioniert aber nicht. Auch nicht mit:

Code: Alles auswählen

 Form1.BGRAShapeKalender.Visible := False;

Ich kann ja nicht bei der Form Kalender in Uses die Form1 rein machen, da die Form Kalender ja schon in der Unit 1 drin ist. das gibt Error Circular...usw. Hat jemand eine Idee. (Ich traue mich fast nichts mehr hier zu schreiben, da man mich nicht versteht.)

[Zvoni]

Ein eigener Konstruktor, in welchem du zusätzlich eine Referenz auf das Shape mitlieferst?
Brauchst natürlich ein Feld in TFKalender, was dann die Referenz hält

Code: Alles auswählen

//In MainForm
procedure TForm1.BCMaterialDesignButtonKalenderClick(Sender: TObject);
begin
    if not Assigned(FKalender) then
    begin
    FKalender:= TFKalender.Create(Self, BGRAShapeKalender); 
    //BGRAShapeKalender.Visible := True; 
end;

//in TFKalender
Constructor TFKalender.Create(Owner:TObject; AShape:BGRAShapeDingensType);  //Braucht natürlich BGRADingensUnit in Uses
Begin
  Inherited Create(Owner);  //Oder war es Nil?
  FShape:=AShape;
  FShape.Visible:=True;
End;

procedure TFKalender.FormClose(Sender: TObject; var CloseAction: TCloseAction);
begin
  FShape.Visible := False;
end;      

Alles ungetestet und ins Blaue geschossen.

Und übrigens gruselig: Ein "Kind" sollte nie ein Update auf ein "Parent" machen

[af0815]

Ein Kind kann durchaus ein Update im Parent machen. Einfach einen geplanten Callback/Event machen. Siehe die ganzen On... Händler. Somit kann der Parent dem Kind sagen, wie er erreichbar ist, oder wer anderer der für das Ereignis zuständig ist.

BTW Ich finde in der Lazarus Wiki jetzt kein gutes Beispiel, wie man einen Event/Callback selbst erstellt.

[Zvoni]

Ein Kind kann durchaus ein Update im Parent machen. Einfach einen geplanten Callback machen. Siehe die ganzen On... Händler. Somit kann der Parent dem Kind sagen, wie er erreichbar ist, oder wer anderer der für das Ereignis zuständig ist.

Hmmm…….stimmt.
In mainform einen OnClose-handler, das dem close-ereignis von TFKalender zuweisen, im handler closeaction setzen, shape auf invisible, fertich

[Andy Nightingale]

Ein Kind kann durchaus ein Update im Parent machen. Einfach einen geplanten Callback machen. Siehe die ganzen On... Händler. Somit kann der Parent dem Kind sagen, wie er erreichbar ist, oder wer anderer der für das Ereignis zuständig ist.

Hmmm…….stimmt.
In mainform einen OnClose-handler, das dem close-ereignis von TFKalender zuweisen, im handler closeaction setzen, shape auf invisible, fertich

Hallo Zvoni und af0815,
jepp das wars.-danke Euch es funktioniert.