Bingo Karte

[DeddyH]

Das wäre dann in meinem Beispiel innerhalb von DoOnPanelClick, statt des ShowMessage dann halt auf Gleichheit prüfen und entsprechend reagieren.

[jurkup]

Tut mir leid ich stehe auf dem Schlauch. habe das jetzt so versucht:

Delphi-Quellcode:

 var Pan : string;
begin

 if sender is TPanel then
    Begin
    Pan := Form1.TPanel(Sender).Caption;

    If Pan = Ziehung then
       begin
       sender(TPanel).Enabeld := false;
       sender(TPanel).Color := clRed;
       end;
    end;

Hab leider echt keinen Plan davon.

[DeddyH]

Form1 hat da nichts zu suchen, und Du castest falsch herum. So sollte es klappen (ungetestet, da im Editor getippt):

Delphi-Quellcode:

var 
  Pan : string;
  Panel: TPanel;
begin
  if Sender is TPanel then
    begin
      Panel := TPanel(Sender);
      Pan := Panel.Caption;

      If Pan = Ziehung then
        begin
          Panel.Enabled := false;
          Panel.Color := clRed;
        end;
    end;

[jurkup]

Super genau das habe ich gesucht. Vielen Dank.

Eine Frage hab ich noch. Wo muss ich die Allgemeine Procedur den schrieben, die ich dann in den Events der Panels benutze? hab die bis jetzt immer einfach direkt nach der Implementation geschrieben:

Delphi-Quellcode:

implementation

{$R *.lfm}

{ TForm1 }

procedure TestB;
var
  Pan : string;
  Panel : TPanel;
begin
if sender is TPanel then
   Begin
   Panel := TPanel(sender);
   Pan := 'B'+Panel.Caption;

   If Pan = Ziehung then
      begin
      Panel.Enabled := false;
      Panel.Color := clRed;
      end;
   end;
end;

Aber so bekomme ich eine Fehlermeldung wegen dem sender.

[DeddyH]

Schau Dir doch mein Beispiel noch einmal genau an, da gibt es auch keine parameterlose reguläre Prozedur.

[BrightAngel]

Zitat von DeddyH:

Ich habe mal ein Beispiel geschrieben [...]

Jetzt die einzelnen Methoden: InitializePanels erzeugt die Panels zur Laufzeit, richtet sie aus und weist ihrer Tag-Eigenschaft eine zufällige Zahl zu. Diese wird auch gleich mit dargestellt.

Delphi-Quellcode:

procedure TForm1.InitializePanels;
[...]

[...]

Anmerkung zur Vollständigkeit: Der Aufruf dieser Funktion besorgt sich (im TPanel.Create(self) ) Speicher für die Panels. Diesen Speicher solltest du in deinem Destruktor (spätestens) wieder mit Panel.Free für jedes einzelne Panel aus dem Array freigeben. Ich weiß, dass das jetzt nicht zur Beantwortung der primären Frage dieses Threads beiträgt...

Ich habe damals beigebracht bekommen, dass man am Besten zeitnah für jedes Create, das man schreibt, ein Free spendiert. Vielleicht hilft dir dieser Tipp noch weiter...

Brighty

[DeddyH]

Zitat von BrightAngel:

Zitat von DeddyH:

Ich habe mal ein Beispiel geschrieben [...]

Jetzt die einzelnen Methoden: InitializePanels erzeugt die Panels zur Laufzeit, richtet sie aus und weist ihrer Tag-Eigenschaft eine zufällige Zahl zu. Diese wird auch gleich mit dargestellt.

Delphi-Quellcode:

procedure TForm1.InitializePanels;
[...]

[...]

Anmerkung zur Vollständigkeit: Der Aufruf dieser Funktion besorgt sich (im TPanel.Create(self) ) Speicher für die Panels. Diesen Speicher solltest du in deinem Destruktor (spätestens) wieder mit Panel.Free für jedes einzelne Panel aus dem Array freigeben. Ich weiß, dass das jetzt nicht zur Beantwortung der primären Frage dieses Threads beiträgt...

Ich habe damals beigebracht bekommen, dass man am Besten zeitnah für jedes Create, das man schreibt, ein Free spendiert. Vielleicht hilft dir dieser Tipp noch weiter...

Brighty

Ich habe diesen Post gerade erst gesehen und antworte darum jetzt erst darauf: die Panels müssen nicht explizit freigegeben werden, da beim Erzeugen das Formular als Owner angegeben wurde. Dieser Owner gibt alle ihm zugeordneten Komponenten automatisch frei, sobald er selbst zerstört wird.