Hola yuyidt.
Pero, ¿ Has cambiado la idea inicial no ? , por que ya no aparecen otros formularios...
Bueno, con respecto a tu última consulta creo que te complicas mucho usando imágenes, te resultaría mas simple usando solamente paneles.
Un ejemplo simplificado:
Código Delphi
[-]
...
implementation
procedure TForm1.FormCreate(Sender: TObject);
begin
Randomize;
Panel1.Tag := Random( 5 ) + 1;
Panel1.Caption := IntToStr(Panel1.Tag);
Panel2.Tag := 2; Panel3.Tag := 6; Panel4.Tag := 5; Panel5.Tag := 4; Panel6.Tag := 3; Panel7.Tag := 1; end;
procedure TForm1.PanelesClick( Sender: TObject );
const
CCOLOR: array[Boolean] of TColor = (clRed, $0000D900);
CBEEP : array[Boolean] of LongWord = (MB_ICONERROR, MB_OK);
var
pnl: TPanel;
i: Integer;
begin
pnl := TPanel(Sender);
pnl.Color := CCOLOR[pnl.Tag = Panel1.Tag];
for i := 0 to 5 do
begin
pnl.Visible := not pnl.Visible;
Sleep(100);
end;
pnl.Visible := True;
MessageBeep(CBEEP[pnl.Tag = Panel1.Tag]);
end;
procedure TForm1.btnContinuaClick(Sender: TObject);
var
i : Integer;
begin
for i := 0 to ControlCount - 1 do
if Controls[i] is TPanel then
TPanel(Controls[i]).Color := clBtnFace;
Panel1.Tag := Random( 5 ) + 1;
Panel1.Caption := IntToStr(Panel1.Tag);
end;
Saludos