Registriert seit: 17. Sep 2006
Ort: Barchfeld
27.619 Beiträge
Delphi 12 Athens
|
AW: Bingo Karte
1. Jan 2017, 14:49
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;
Detlef "Ich habe Angst vor dem Tag, an dem die Technologie unsere menschlichen Interaktionen übertrumpft. Die Welt wird eine Generation von Idioten bekommen." (Albert Einstein)
Dieser Tag ist längst gekommen
|