Autor Beitrag
Dreas
Hält's aus hier
Beiträge: 14



BeitragVerfasst: Di 07.10.03 15:18 
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
ontopic starontopic starontopic starontopic starontopic starontopic starhalf ontopic starofftopic star
Beiträge: 116

Win 2000
D5Enterprise
BeitragVerfasst: Di 07.10.03 15:27 
Die gewünschten proceduren kannst Du in den Ereignissen OnClick und OnMouseMove des Images durchführen.
Dreas Threadstarter
Hält's aus hier
Beiträge: 14



BeitragVerfasst: 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.
ausblenden 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
ontopic starontopic starontopic starontopic starontopic starontopic starhalf ontopic starofftopic star
Beiträge: 116

Win 2000
D5Enterprise
BeitragVerfasst: 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

_________________
Aus den Chaos sprach eine Stimme " Lächele und sei froh denn es könnte schlimmer kommen". Und ich lächelte und ich war froh.
UND ES KAM SCHLIMMER
Dreas Threadstarter
Hält's aus hier
Beiträge: 14



BeitragVerfasst: 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
ontopic starontopic starontopic starontopic starontopic starontopic starhalf ontopic starofftopic star
Beiträge: 116

Win 2000
D5Enterprise
BeitragVerfasst: 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

_________________
Aus den Chaos sprach eine Stimme " Lächele und sei froh denn es könnte schlimmer kommen". Und ich lächelte und ich war froh.
UND ES KAM SCHLIMMER