Új hozzászólás Aktív témák

• #1830 dany27 őstag

  Új Válasz 2010-10-16 22:54:21 #1830

  Új hozzászólás

  Összes hozzászólása itt Válaszok az összes hozzászólására itt Válaszok erre a hozzászólásra

  Privát üzenet küldése

  

  dany27

  őstag

  Hi!

  Úgy sikerült megoldanom hogy elkapom a CM_MOUSEENTER illetve LEAVE üzenetet de valamiért dob egy hatalmas hibát mikor ráhúzom az egerem a gombra.. Csak a képbuherálással van baja, msgboxot simán feldobatom vele.
  Hoztam létre egy külön típust a gombnak.. Nah de itt a kód beszéljen inkább az!
  unit Unit1;
  
  interface
  
  uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls, jpeg, ExtCtrls;
  type TButton = class(stdctrls.TButton)
  img_pre: TImage;
  procedure WhenMouseEnter(var Message:TMessage);message CM_MOUSEENTER;
  procedure WhenMouseLeave(var Message:TMessage);message CM_MOUSELEAVE;
  end;
  type
  Tfrm_main = class(TForm)
  Button1: TButton;
  img_pre: TImage;
  procedure Button1Click(Sender: TObject);
  private
  { Private declarations }
  public
  { Public declarations }
  
  end;
  
  var
  frm_main: Tfrm_main;
  
  implementation
  
  {$R *.dfm}
  
  procedure Tfrm_main.Button1Click(Sender: TObject);
  begin
  if messagebox(frm_main.Handle,'Valóban kiszeretnél lépni a programból?','Kilépés megerősítése',MB_YESNO)= IDYES then
  application.terminate
  
  end;
  
  procedure Tbutton.WhenMouseEnter(var Message:TMessage);
  begin
  img_pre.Picture.LoadFromFile('img/egyik.jpg');
  end;
  procedure Tbutton.WhenMouseLeave(var Message:TMessage);
  begin
  img_pre.Picture.LoadFromFile('img/masik.jpg');
  end;
  
  end.

  Ezt a hibát adja:
  Előre is köszi!

Új hozzászólás Aktív témák