Cambiar imagen en tiempo de ejecucíón

[lucasarts_18]

Hola Roman:

Gracias por tu ayuda, me resulta como lo indicas tú pero..... al momento de cambiar la otra imagen ésta disminuye bastante el tamaño a pesar que ambas tienen el mismo alto y ancho.

Saludos.

[lucasarts_18]

Hola Román:

Ya solucioné el problema de los tamaños, era respectivamente el ancho y el alto, qué cosas no ??.

Otra duda,sabes que evento se genera cuando el mouse deja de estar sobre algún objeto ???

Saludos.

[German]

Puedes crearte un componente tImage2, igual que el tImage, pero que incluya los eventos onMouseEnter y onMouseLeave (al entrar y al salir el mouse):

Código Delphi [-]
unit Image2;
 
interface 
 
uses 
  Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
  ExtCtrls;
 
type 
  TEntrarEvent=procedure(Sender:TObject) of object;
  TSalirEvent =procedure(Sender:TObject) of object;
  TImage2 = class(TImage)
  private
    { Private declarations }
    FOnEnter:TEntrarEvent;
    FOnExit :TSalirEvent;
    procedure CMMouseEnter(var msg:TMessage); message CM_MOUSEENTER;
    procedure CMMouseLeave(var msg: TMessage); message CM_MOUSELEAVE;
  protected
    { Protected declarations }
  public
    { Public declarations }
  published
    { Published declarations }
    property OnMouseEnter: TEntrarEvent read FOnEnter write FOnEnter;
    property OnMouseLeave: TSalirEvent read FOnExit write FOnExit;
 
  end; 
 
procedure Register;
 
implementation 
 
procedure TImage2.CMMouseEnter(var msg:TMessage);
begin 
    inherited;
    {Cuando el raton entra...}
    if Assigned(FOnEnter) then FOnEnter(Self);
end; 
 
procedure TImage2.CMMouseLeave(var msg: TMessage);
begin 
    inherited;
    {Cuando el raton sale}
    if Assigned(FOnExit) then FOnExit(self);
end; 
 
procedure Register;
begin 
  RegisterComponents('Personales', [TImage2]);
end; 
 
end.

Salu2.