Forum: Sonstige Fragen zu Delphi
by jurkup,
1. Jan 2017
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:
implementation
{$R *.lfm}
{ TForm1 }
Forum: Sonstige Fragen zu Delphi
by jurkup,
1. Jan 2017
Tut mir leid ich stehe auf dem Schlauch. habe das jetzt so versucht:
var Pan : string;
begin
if sender is TPanel then
Begin
Pan := Form1.TPanel(Sender).Caption;
If Pan = Ziehung then
Forum: Sonstige Fragen zu Delphi
by jurkup,
1. Jan 2017
Das hätte mir sehr viel Arbeit beim erstellen gespart.
Mein Problem war eigentlich, dass bei dem Klicken eines Panels geprüft werden soll, ob die Caption mit der aktuellen gezogenen Zahl übereinstimmt. Also einfach testen, ob "Ziehung" und Form1.Panelx.Caption übereinstimmen. Und das möglichst so, dass ich nicht für jedes der 25 Panels den Ganzen Code wiederholen muss.
Forum: Sonstige Fragen zu Delphi
by jurkup,
1. Jan 2017
Wie würde das in etwa aussehen? Ich wüsste jetzt nicht, wie ich die Information in die Anweisung bekomme.
Forum: Sonstige Fragen zu Delphi
by jurkup,
1. Jan 2017
Vielen Dank. Das ist ja noch besser.
Ich stehe schon vor dem nächsten Problem.
Ich möchte, dass bei einem Klick auf ein Panel geprüft wird ob die Zahl mit der gezogenen übereinstimmt.
Ist es möglich eine Allgemeine Procedure zu schreiben, bei der ich nicht das Panel genau angeben muss (also Form1.Panelx.Caption) sondern sagen kann, dass geklickte Panel soll geprüft werden?
Forum: Sonstige Fragen zu Delphi
by jurkup,
1. Jan 2017
Guten Tag zusammen und frohes neues.
Wahrscheinlich ist das hier der falsche Bereich und die Frage schonmal da gewesen. Ich habe aber nichts gefunden.
Ich muss ein Bingo Programm schreiben. Die Zahlen für die einzelnen Felder müssen hierbei den einzelnen Feldern zugewiesen werden. Nun ist meine Frage: Kann man in einer For Schleife bei des Beschreibung des Panels eine Variable einsetzen?
...
