Bingo Karte

[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.