Delphi-PRAXiS
Seite 3 von 3     123   

Delphi-PRAXiS (https://www.delphipraxis.net/forum.php)
-   Multimedia (https://www.delphipraxis.net/16-multimedia/)
-   -   Delphi Umwerfende designs kinderleicht erstellt! (https://www.delphipraxis.net/116749-umwerfende-designs-kinderleicht-erstellt.html)

Michael Habbe 13. Jan 2009 22:30

Re: Umwerfende designs kinderleicht erstellt!
 
Naja, der Threadtitel klingt ja sehr vielversprechend.
Auch das angehängte Foto ist OK.

Aber warum soll ich eine EXE testen, wovon ich nicht mal die Sourcen sehen kann, wenn es doch ach so kinderleicht ist? :gruebel:

Florian H 13. Jan 2009 23:15

Re: Umwerfende designs kinderleicht erstellt!
 
Zitat:

Zitat von Michael Habbe
Aber warum soll ich eine EXE testen, wovon ich nicht mal die Sourcen sehen kann, wenn es doch ach so kinderleicht ist? :gruebel:

Das ganze ist wahrscheinlich zu trivial, um angehängt zu werden ... das wird beim uploaden direkt als "Quellcode unter dem Niveau dieses Forums" geblockt! :stupid:

Gast 25. Jan 2009 15:36

Re: Umwerfende designs kinderleicht erstellt!
 
also, ganz einfach, da sind Image1 und Image2.
die liegen übereinander.
Image2.Visible ist false.

und dann ist da:

Delphi-Quellcode:
procedure TForm1.Image1MouseMove(Sender: TObject; Shift: TShiftState; X,
  Y: Integer);
begin
Image2.Visible:=True;
end;

procedure TForm1.Image2MouseLeave(Sender: TObject);
begin
Image2.Visible:=False;
end;
hier noch einmal der Gesamte Code:
Delphi-Quellcode:
unit Unit1;

interface

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

type
  TForm1 = class(TForm)
    Image1: TImage;
    Image2: TImage;
    procedure Image1MouseMove(Sender: TObject; Shift: TShiftState; X,
      Y: Integer);
    procedure Image2MouseLeave(Sender: TObject);
  private
    { Private-Deklarationen }
  public
    { Public-Deklarationen }
  end;

var
  Form1: TForm1;

implementation

{$R *.dfm}

procedure TForm1.Image1MouseMove(Sender: TObject; Shift: TShiftState; X,
  Y: Integer);
begin
Image2.Visible:=True;
end;

procedure TForm1.Image2MouseLeave(Sender: TObject);
begin
Image2.Visible:=False;
end;

end.

Gast 25. Jan 2009 15:38

Re: Umwerfende designs kinderleicht erstellt!
 
tschuldigung, hatte nicht gesehen, dass schon jemand geantwortet hat :oops:

torud 8. Feb 2009 16:35

Re: Umwerfende designs kinderleicht erstellt!
 
Für Leute, die´s schmucki wollen, kann ich noch die Komponenten von TMS empfehlen. Die sehen gut aus und bieten etwas mehr Möglichkeiten als die Standardkomponenten von Delphi -> dafür kosten die aber auch.

Die Kollegen von Jedi bieten auch den ein oder anderen Button an.

Ich persönlich, um auch meine Meinung kund zu tun, halte von dieser Bilderlösung absolut gar nix.


Alle Zeitangaben in WEZ +1. Es ist jetzt 16:35 Uhr.
Seite 3 von 3     123   

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