Einzelnen Beitrag anzeigen

Flodding

Registriert seit: 26. Dez 2007
Ort: Kiel
121 Beiträge
 
Turbo Delphi für Win32
 
#1

Image und MouseOver / MouseLeave

  Alt 18. Mär 2009, 13:56
Irgendwie zweifle ich langsam an meinem Verstand, deshalb muss ich das jetzt nochmal fragen

Und zwar schaut das ganze bei mir so aus...

Delphi-Quellcode:
unit Unit1;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls, ExtCtrls, jpeg;

type
  TForm1 = class(TForm)
    Image1: TImage;
    Button1: TButton;
    procedure FormCreate(Sender: TObject);
    procedure Image1MouseEnter(Sender: TObject);
    procedure Image1MouseLeave(Sender: TObject);
  private
    { Private-Deklarationen }
  public
    { Public-Deklarationen }
  end;

var
  Form1: TForm1;

implementation

{$R *.dfm}


procedure Form1.Image1MouseEnter(Sender: TObject);
begin
image1.Picture:=nil;
end;

procedure Form1.Image1MouseLeave(Sender: TObject);
begin
image1.picture.loadfromfile('C:\test.bmp');
end;

end.
Warum funktioniert das nicht? ich habs so in diversen quellcodes gesehn, und eine suche bei google KLICK bringt mich zu fast nur russischen seiten wo es genauso im quelltext steht.
und HIER funktionierts auch... nur dass ich nicht möchte dass meine bilder erst s/w sind und dann farbig werden...

Danke für jede antwort
Flo
  Mit Zitat antworten Zitat