dar un click y que se pinte la figura

[Neftali [Germán.Estévez]]

Empezado por Luli

...estoy probando el codigo pero me marca error

El código que te puse era orientativo, era para darte una idea, tampoco hay que seguirlo al pie de la letra. ¿Qué error te da y dónde te da?

Empezado por Luli

...supongo que estoy declarando mal esta variable, la verdad no sé donde la tengo que declarar y como, ¿me podria ayudar?

type
TipoFigura = (tpNada, tfLinea, tpCirculo, tpCuadrado)

Ésto es la declaración de un tipo enumerado (busca en la ayuda de Delphi por enumerated types); Se trata de definir que una determinada variable sólo va a admitir uno de éstos valores. Ésto que ves aquí es la definición luego cuando queras utilizar una variable de éstas sólo debes declararla de éste tipo.

Código Delphi [-]
...
interface
...
type
TipoFigura = (tfNada, tfLinea, tfCirculo, tfCuadrado)
...
 
implementation
...
 
 
procedure TForm....
var
tf:TipoFigura; // Variable de tipo TipoFigura
begin
// Inicializar
tf := tfNada;
// Asignar
tf := tfCirculo;
...
 
if (tf = tfCirculo) ...
...