Delphi-PRAXiS

Delphi-PRAXiS (https://www.delphipraxis.net/forum.php)
-   Object-Pascal / Delphi-Language (https://www.delphipraxis.net/32-object-pascal-delphi-language/)
-   -   Delphi Image und MouseOver / MouseLeave (https://www.delphipraxis.net/131082-image-und-mouseover-mouseleave.html)

Flodding 18. Mär 2009 13:56


Image und MouseOver / MouseLeave
 
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 18. Mär 2009 15:10

Re: Image und MouseOver / MouseLeave
 
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 18. Mär 2009 19:01

Re: Image und MouseOver / MouseLeave
 
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 18. Mär 2009 19:32

Re: Image und MouseOver / MouseLeave
 
Wird denn die entsprechende Ereignisbehandlung überhaupt aufgerufen? Setz dort mal ein Haltepunkt.

blink182 18. Mär 2009 19:40

Re: Image und MouseOver / MouseLeave
 
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 18. Mär 2009 19:50

Re: Image und MouseOver / MouseLeave
 
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 18. Mär 2009 20:08

Re: Image und MouseOver / MouseLeave
 
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 18. Mär 2009 20:13

Re: Image und MouseOver / MouseLeave
 
mh schau ich mir morgen auf der arbeit mal genauer an :D

danke :)

blink182 18. Mär 2009 20:13

Re: Image und MouseOver / MouseLeave
 
bzw hier mit :)


Alle Zeitangaben in WEZ +1. Es ist jetzt 11:02 Uhr.

Powered by vBulletin® Copyright ©2000 - 2024, Jelsoft Enterprises Ltd.
LinkBacks Enabled by vBSEO © 2011, Crawlability, Inc.
Delphi-PRAXiS (c) 2002 - 2023 by Daniel R. Wolf, 2024 by Thomas Breitkreuz