Image und MouseOver / MouseLeave

[Flodding]

Irgendwie zweifle ich langsam an meinem Verstand, deshalb muss ich das jetzt nochmal fragen :roll:

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 :wall:

[Dunkel]

Zitat:

Zitat von Flodding

Warum funktioniert das nicht?

Tja, keine Ahnung. Du hast ja nicht verraten was nicht funktioniert. Passiert garnichts, passiert nicht das Gewünschte, kocht Dein Rechner aufeinmal Tee statt Kaffee?!? :cyclops:

[Flodding]

also wenn ich mit der maus über das image fahre, dann passiert einfach nichts... es ist so als wenn ich einfach ne form gemacht hätte und einfach nur n image und n button drauf gesetzt hätte und gestartet hätte...

[Dunkel]

Wird denn die entsprechende Ereignisbehandlung überhaupt aufgerufen? Setz dort mal ein Haltepunkt.

[blink182]

mhm also in meinem Objektinspektor sind dies beide keine Ereignisse von TImage ;) von daher wirds vermutlich nicht funktionieren ;)

aber du kannst das ganze vllt im Form MouseMove unterbringen, in dem du die Position der Maus überprüfst und wenn diese im Bild ist dann das Bild löschen und wenn nicht laden, vllt solltest du noch eine boolean-variable anlegen, damit das Bild nicht die ganze Zeit neugeladen wird, wenn man sich auf der Form bewegt ;)

[Flodding]

es liegt wohl daran dass ich d7ent nutze... man das war so lange so gut zu mir... ich hab gesehn das in den neueren versionen von delphi die standardcontrols mehr funktionen haben ... unter anderem auch die mit dem mouseover beim image... wollt mir jetzt nicht gleich massig euros ausm portemonaie ziehen lassen... gibts nicht diese turbo version irgendwo wo man nur keine dritt komponenten einfügen kann? hat einer n link? :zwinker:

[Dunkel]

Oh, seh' ich jetzt erst, dass Du D7 benutzt... :wall:

Probier es mal damit. Einfach die entsprechende Windows-Message abfangen und drauf reagieren, dann sollte das auch mit D7 funktionieren.

[Flodding]

mh schau ich mir morgen auf der arbeit mal genauer an :D

danke :)

[blink182]

bzw hier mit :)