PS: [DELPHI]fdfd[/DELPHI]
Zitat:
Delphi-Quellcode:
// Welcher Button wurde gedrückt?
X := 90;
Y := 90;
for Index := 0 to Self.ControlCount - 1 do
begin
If Sender = Self.Controls[ Index ] then
begin
X := Index mod 3;
Y := Index div 3;
end;
end;
Du versuchst also auch einer "zufälligen" Reihenfolge "Aller" Controls auf der Form zu bestimmen welcher Knopf es ist?
Ich wäre da nicht sicher, dass X und Y immer richtig sind.
Aber das würde dir auch der Debugger sagen, wenn man ihn verwendet, auf einen Knopf drückt und dann schaut was danach wirklich in X und Y steht.
PS: Alle
VCL-Komponenten haben ein "Tag" property, das der Entwickler frei verwenden kann.
z.B. könnte man bei den Knöpfen 11, 12, 13, 21, ... 33 eintragen und dann
Delphi-Quellcode:
X := (Sender as TSpeedButton).Tag mod 10;
Y := (Sender as TSpeedButton).Tag div 10;