Цитата:
Сообщение от Alegun
Сократите код немного, уберите лишние обработчики кнопок со 2й по 30ю, оставив один
Код:
procedure TForm1.SpeedButton2Click(Sender: TObject);
begin
g :=1 + AA[(Sender as TSpeedButton).Tag];
Form3.rr:= IntToStr(g);
end;
задайте кнопкам свойство tag нужным индексом и результирующую переменную переместите туда, где она будет использоваться т.е. в Form3. Всем баттонам только не забудьте жим SpeedButton2Click задать
З.Ы. Кстати, и в обработчике Button3Click можно подсократить слегка, если цикл задействовать
Код:
for i := 1 to 30 do
(FindComponent('Image' + IntToStr(i)) as TImage).Picture:= nil;
|
да, за
Цитата:
for i := 1 to 30 do
(FindComponent('Image' + IntToStr(i)) as TImage).Picture:= nil;
|
спасибо, но с первым:
Цитата:
procedure TForm1.SpeedButton1Click(Sender: TObject);
begin
g := 1 + AA[0];
rr:=IntToStr(g);
Form1.Hide;
Form3.Show;
end;
procedure TForm1.SpeedButton2Click(Sender: TObject);
begin
g :=1 + AA[(Sender as TSpeedButton).Tag];
Form3.rr:= IntToStr(g);
end;
|
выдало уже только одну ошибку:
'TForm3' does not contain a member 'rr' at line 343