FTP | CCD | Buscar | Trucos | Trabajo | Foros |
|
Registrarse | FAQ | Miembros | Calendario | Guía de estilo | Temas de Hoy |
|
Herramientas | Buscar en Tema | Desplegado |
#1
|
|||
|
|||
Ayuda con MasterMind
Hola a todos, espero qeu me podais ayudar. Estoy intentando hacer el juego
de MasterMind y me he atrancado y no puedo seguir. Para reutilizar código he creado un procedimiento llamado "Colores". En él parte del código es este: case i of 0: begin Form1.shape1.Brush.Color:=clblack; end; 1: begin Form1.shape1.Brush.Color:=clred; end; ... Mi problema es que al hacer la llamada, como este procedimiento esta hecho sobre "Shape1", es Shape1 el que siempre cambia: procedure TForm1.Shape1MouseDown(Sender: TObject; Button: TMouseButton; Shift: TShiftState; X, Y: Integer); begin Colores(sender); end; ¿Que tengo que poner en vez de Form1.Shape1....para que ese procedimiento me funcione en cada shape que tengo y no solo en el 1???. Espero que me podais ayudar. Muchas gracias. |
#2
|
||||
|
||||
TShape(Sender).Brush.Color := ...
// Saludos |
|
|
|