Ver Mensaje Individual
  #4  
Antiguo 20-05-2012
Avatar de martini002
martini002 martini002 is offline
Miembro
 
Registrado: may 2012
Ubicación: Puerto Ordaz - Venezuela
Posts: 175
Reputación: 12
martini002 Va por buen camino
Ecfisa,

Gracias por tu respuesta, realmente me ayudo mucho

Código Delphi [-]
Form1.Image1.Picture.LoadFromFile('C:\Tu_Ruta\Imagen1.jpg');

Esto era lo que estaba buscando exactamente
como modificar esa propiedad directamente desde el codigo,
realmente como en el primer ejemplo es precisamente
lo que necesito, pero no me funciona,
el lenguaje no me reconoce esta propiedad

Código Delphi [-]
CMMouseEnter
CMMouseLeave

me tira estos errores

Código Delphi [-]
[Error] AreaRectangulo.pas(59): ';' expected but '.' found
[Error] AreaRectangulo.pas(59): ';' expected but ')' found

Código Delphi [-]
procedure BotonImg.CMMouseEnter(var Msg: TMessage); // Aqui el error
begin
  Acciones.
end;


Ese hover es lo que realmente he venido buscando
pero pude encontrar otra forma un poco menos atractiva
pero que al final funciono muy bien
como podria resolver lo del hover?

Tambien me interesaria bastante conocer donde
conseguiste conocer esta propiedad "LoadFromFile"
seguramente alli mismo deben haber otras que me ayudarian bastante
interesantes respuestas,
gracias por el apoyo

Best,
Martin

Código Delphi [-]
procedure TForm1.BotonImgMouseDown(Sender: TObject; Button: TMouseButton;
  Shift: TShiftState; X, Y: Integer);
begin
  Form1.BotonImg.Picture.LoadFromFile('F:\Borland\Delphi7\Projects\Area Rectangulo\BotonAbajo.jpg');
end;

procedure TForm1.BotonImgMouseUp(Sender: TObject; Button: TMouseButton;
  Shift: TShiftState; X, Y: Integer);
begin
  Form1.BotonImg.Picture.LoadFromFile('F:\Borland\Delphi7\Projects\Area Rectangulo\BotonArriba.jpg');
end;
Responder Con Cita