Results 1 to 24 of 24
Thread: Delphi- .
Hybrid View
-
20th August 2011 16:12 #1
Delphi- .
. Delphi...
Delphi . ,
, Delphi.
() - , , .
HTML , .
.
.
-
20th August 2011 17:08 #2
-
20th August 2011 18:04 #3, , a , , . ( Delphi7 )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;
, , , ....
-
20th August 2011 18:14 #4
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;
http://03326.hit.bg
------------------------------
http://folding.extremeoverclocking.c...e.php?u=287947
-
20th August 2011 18:17 #5
? .
, 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|
-
20th August 2011 18:24 #6, , - .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.
-
20th August 2011 18:25 #7
-
20th August 2011 18:57 #8
, Delphi7 OnMouseEnter, OnMouseLeave TImage.
- Delphi, .
-
20th August 2011 18:06 #9
-
20th August 2011 18:10 #10
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|
-
20th August 2011 18:10 #11




Reply With Quote

Lenovo ThinkPad 15 IdeaPad 15
5th May 2023, 22:16 in