Entwickler-Ecke

Delphi Language (Object-Pascal) / CLX - Imagewechsel onmousemove bzw. onclick ???


Dreas - Di 07.10.03 15:18
Titel: Imagewechsel onmousemove bzw. onclick ???
Hallo,

Ich möchte in mein Programm ein kleines Bild einfügen und das sollte sich, wenn die Maus drüber ist, ändern. Ebenso wenn man mit der Maus auf das Bild klickt. Beim klick soll dann eine Internetadresse mit dem Standardbrowser geöffnet werden.
Ein Bild (bmp) hab ich schon eingefügt mit Hilfe von timage.
Wie füge ich die anderen beiden Bilder hinzu und richte alles mit onmousemove und onclick wie gewünscht ein?
Das Verlinken habe ich bereits mit shellexecute gelöst. Fehlt nur noch die richtige visuelle Unterstützung durch den Bilderwechwel dazu.
Hab schon hier und anderweitig nach ner Lösung gesucht, aber geholfen hats leider nicht.

Danke schon mal.


joerg68 - Di 07.10.03 15:27
Die gewünschten proceduren kannst Du in den Ereignissen OnClick und OnMouseMove des Images durchführen.


Dreas - Di 07.10.03 16:04
Was muss ich denn für befehle geben oder was fürn code anwenden?
Ich hab versucht, damit ein Bild aus meiner Imagelist zu laden.

Delphi-Quelltext 
1:
2:
3:
4:
5:
 
procedure TForm1.Image1Click(Sender: TObject);
begin
  ImageList1.GetBitmap(2,Image1.Picture.Bitmap);
  {shellexecute(handle, 'open', 'http://www.XXX.de', nil, nil, SW_SHOW);}
end;

Klappt nicht. :?

Wie mache ich das richtig?

Moderiert von user profile iconTino: Delphi-Tags hinzugefügt.


joerg68 - Di 07.10.03 16:41
Bei mir funktioniert Dein Code :? (Das wechseln des Bildes)
Sieh mal nach ob die Sachen auch wirklich im OnClickEreignis des Bildes stehen.
Gruss Jörg


Dreas - Di 07.10.03 17:35
Hi,

ich denk schon,
Um ganz sicher zu gehen, sag ich mal eben wie ichs gemacht habe:

- Auf der Form ein Imageplatzhalter (unter Zusätzlich - Image) angelegt.
- Im Objektinsp. bei picture das Bild eingefügt.
- Unter Ereignisse (Image1) bei onclick doppelt ins Eingabefeld geklickt.
- Neue Prezedur wurde angelegt:

procedure TForm1.Image1Click(Sender: TObject);
begin

end;

- Zwischen begin und end den Code eingefügt

Das müsste doch so richtig sein oder?
Oder stimmt was nicht mit meiner Imagelist?
Muss man da was besonderes beachten? Ich hab bei der Imagelist unter Eigenschaften bei Height und Width jeweils 80 angegeben, weil meine 3 Bilder auch 80*80 sind.
ImageList1.GetBitmap(2,Image1.Picture.Bitmap); <-- Die 2 steht doch für die Nummer des Bildes wie in der Imagelist angegeben?
Bei 3 Bildern müsste ich also 0,1 und 2 haben richtig?

Vielleicht erkennst Du ja jetzt meinen Fehler.

Gruss


joerg68 - Mi 08.10.03 09:10
Ich habe es genau so bei mir ausprobiert und bei mir funktioniert es?
Das sind die unerklärlichen Dinge beim programmieren :nixweiss:
Jörg


Entwickler-Ecke.de based on phpBB
Copyright 2002 - 2011 by Tino Teuber, Copyright 2011 - 2026 by Christian Stelzmann Alle Rechte vorbehalten.
Alle Beiträge stammen von dritten Personen und dürfen geltendes Recht nicht verletzen.
Entwickler-Ecke und die zugehörigen Webseiten distanzieren sich ausdrücklich von Fremdinhalten jeglicher Art!