TImage como boton

[ecfisa]

Hola dfarias.

Otra alternativa es situar el TImage dentro de un Panel:

Código Delphi [-]
procedure TForm1.FormCreate(Sender: TObject);
begin
  Image1.Align  := alNone;
  Image1.Width  := Panel1.Width - 6;
  Image1.Height := Panel1.Height - 6;
  Image1.Stretch:= True;
  Image1.Left   := (Panel1.Width - Image1.Width) div 2;
  Image1.Top    := (Panel1.Height - Image1.Height) div 2;
end;

procedure TForm1.Image1MouseDown(Sender: TObject; Button: TMouseButton;
  Shift: TShiftState; X, Y: Integer);
var
  pnl: TPanel;
  img: TImage;
begin
  img := TImage(Sender);
  pnl := TPanel(img.Parent);
  pnl.BevelOuter := bvLowered;
  img.Width  := img.Width  - 2;
  img.Height := img.Height - 2;
end;

procedure TForm1.Image1MouseUp(Sender: TObject; Button: TMouseButton;
  Shift: TShiftState; X, Y: Integer);
var
  pnl: TPanel;
  img: TImage;
begin
  img := TImage(Sender);
  pnl := TPanel(img.Parent);
  pnl.BevelOuter :=  bvRaised;
  img.Width  := img.Width  + 2;
  img.Height := img.Height + 2;
end;

procedure TForm1.Image1Click(Sender: TObject);
var
  msg: TForm;
begin
  msg := CreateMessageDialog('ImageClick', mtCustom,[mbOk]);
  try
    msg.Left := Left + (Width - msg.Width) div 2;
    msg.Top  := Top  + (Height - msg.Height) div 2;
    msg.ShowModal;
  finally
    msg.Free;
  end;
end;

Efecto:


Saludos

[dfarias]

Muchas gracias Ecfisa es lo que necesitaba.

[dec]

Hola,

Por añadir otra posibilidad tal vez quieras echar un vistazo a los componentes Cindy para Delphi. Entre otros muchos componentes muy útiles encontrarás "super botones" que podrás personalizar muy mucho y también añadirles imágenes y fondos para diferentes "estados".