Results 1 to 24 of 24

Thread: Delphi- .

Hybrid View

Previous Post Previous Post   Next Post Next Post
  1. #1
    Registered User mermaid's Avatar
    Join Date: Aug:2005
    Location:
    Posts: 850

    Delphi- .

    . Delphi...
    Delphi . ,

    , Delphi.
    () - , , .

    HTML , .

    .
    .

  2. #2
    Registered User tedych's Avatar
    Join Date: Nov:2003
    Location:
    Posts: 17,654
    , . / , image , .
    , . .

  3. #3
    Android C3P0 finalista's Avatar
    Join Date: Jul:2009
    Location:
    Posts: 948
    Code:
    procedure TForm1.Image1MouseMove(Sender: TObject; Shift: TShiftState; X, Y: Integer);
    begin
      Image1.Picture.LoadFromFile('Yoda_JEDI_0001.jpg');
    end;
    
    procedure TForm1.FormMouseMove(Sender: TObject; Shift: TShiftState; X, Y: Integer);
    begin
      Image1.Picture.LoadFromFile('Yoda_JEDI_0000.jpg');
    end;
    , , a , , . ( Delphi7 )
    , , , ....

  4. #4
    Registered User metal03326's Avatar
    Join Date: Nov:2008
    Location: /
    Posts: 123

    Code:
    procedure TForm1.Image1MouseEnter(Sender: TObject);
    begin
      Image1.Picture.Bitmap.LoadFromResourceName(hInstance,'over');
    end;
    
    procedure TForm1.Image1MouseLeave(Sender: TObject);
    begin
      Image1.Picture.Bitmap.LoadFromResourceName(hInstance,'out');
    end;

  5. #5
    Bombera's Avatar
    Join Date: Jul:2001
    Location: 4EVA
    Posts: 13,833
    ? .
    , TPicture( TBitmap ) . ( TBitBtn) Glyph , (TPicture.Bitmap) .
    EVGA X299 FTW K|i9-7960X@4.7|4x8 Patriot Viper Steel 4000|GTX 1660 Ti|970 EVO 1 TB|Seasonic Focus GX-1000|Xigmatek Elysium|
    Rampage IV Extreme BE|E5-1680v2@4.7|4x4 HyperX 1866|Cougar Aqua 240|GTX 1050 Ti|970 EVO 1/4 TB|CM 850 SilentPro|HAF-X|

  6. #6
    Android C3P0 finalista's Avatar
    Join Date: Jul:2009
    Location:
    Posts: 948
    Code:
    unit Unit1;
    
    interface
    
    uses
      Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
      Dialogs, jpeg, ExtCtrls;
    
    type
      TForm1 = class(TForm)
        Image1: TImage;
        procedure FormCreate(Sender: TObject);
        procedure Image1MouseMove(Sender: TObject; Shift: TShiftState; X, Y: Integer);
        procedure FormMouseMove(Sender: TObject; Shift: TShiftState; X, Y: Integer);
      private  { Private declarations }
                CurrImageNum:  Word;
               { Private declarations }
      public
        { Public declarations }
      end;
    
    var
      Form1: TForm1;
    
    implementation
    
    {$R *.dfm}
    
    procedure TForm1.FormCreate(Sender: TObject);
    begin
      Image1.Picture.LoadFromFile('Yoda_JEDI_0000.jpg');
      CurrImageNum := 0;
    end;
    
    procedure TForm1.Image1MouseMove(Sender: TObject; Shift: TShiftState; X, Y: Integer);
    begin
      if (CurrImageNum<>1) then
      begin
        Image1.Picture.LoadFromFile('Yoda_JEDI_0001.jpg');
        CurrImageNum := 1;
      end;
    end;
    
    procedure TForm1.FormMouseMove(Sender: TObject; Shift: TShiftState; X, Y: Integer);
    begin
      if (CurrImageNum<>0) then
      begin
        Image1.Picture.LoadFromFile('Yoda_JEDI_0000.jpg');
        CurrImageNum := 0;
      end;
    end;
    
    end.
    , , - .
    Last edited by finalista; 20th August 2011 at 18:53.

  7. #7
    motherfather The Penalty's Avatar
    Join Date: Mar:2002
    Location:
    Posts: 20,469
    Quote Originally Posted by metal03326 View Post

    Code:
    procedure TForm1.Image1MouseEnter(Sender: TObject);
    begin
      Image1.Picture.Bitmap.LoadFromResourceName(hInstance,'over');
    end;
    
    procedure TForm1.Image1MouseLeave(Sender: TObject);
    begin
      Image1.Picture.Bitmap.LoadFromResourceName(hInstance,'out');
    end;
    .

    • , -
    • Sometimes I think the surest sign that intelligent life exists elsewhere in the universe is that none of it has tried to contact us
    • Soul platinum 1 and 2. See? It's not the game - you suck.


  8. #8
    Android C3P0 finalista's Avatar
    Join Date: Jul:2009
    Location:
    Posts: 948
    , Delphi7 OnMouseEnter, OnMouseLeave TImage.
    - Delphi, .

  9. #9
    motherfather The Penalty's Avatar
    Join Date: Mar:2002
    Location:
    Posts: 20,469
    on mouse nter ( ) . on mouse leave.

    • , -
    • Sometimes I think the surest sign that intelligent life exists elsewhere in the universe is that none of it has tried to contact us
    • Soul platinum 1 and 2. See? It's not the game - you suck.


  10. #10
    Bombera's Avatar
    Join Date: Jul:2001
    Location: 4EVA
    Posts: 13,833
    ImageList-, ( imagelist hot imagelist). (TButton, TBitBtn), Speedbutton , hot-tracking. 10
    EVGA X299 FTW K|i9-7960X@4.7|4x8 Patriot Viper Steel 4000|GTX 1660 Ti|970 EVO 1 TB|Seasonic Focus GX-1000|Xigmatek Elysium|
    Rampage IV Extreme BE|E5-1680v2@4.7|4x4 HyperX 1866|Cougar Aqua 240|GTX 1050 Ti|970 EVO 1/4 TB|CM 850 SilentPro|HAF-X|

  11. #11
    The Conquerer I Be RazorJack's Avatar
    Join Date: Jul:2001
    Location:
    Posts: 3,108
    finalista 2 TBitmap Image1.

Posting Permissions

  • You may not post new threads
  • You may not post replies
  • You may not post attachments
  • You may not edit your posts
  •  

Copyright © 1999-2011 . .
iskamPC.com | mobility.BG | Bloody's Techblog | | 3D Vision Blog |