Tetedeiench Head Of God | antp a écrit :
ton TPicture il est créé comment ?
blabla = quoi ? parce que parfois les adresses donnent une info utile
|
Ben vla mon code en entier, comme ca
Code :
- unit Unit1;
- interface
- uses
- Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
- Dialogs, ExtCtrls, JvSpecialImage, StdCtrls, JvHtControls, JvComponent,
- JvTransBtn, JvTransBtn2, ImgList, JvCtrls, jpeg, JvImage, Buttons,
- JvSpeedButton;
- type
- TForm1 = class(TForm)
- JvHTLabel1: TJvHTLabel;
- JvTransparentButton3: TJvTransparentButton;
- JvTransparentButton1: TJvTransparentButton;
- Image1: TImage;
- JvImage1: TJvImage;
- Image2: TImage;
- procedure JvTransparentButton1MouseEnter(Sender: TObject);
- procedure JvTransparentButton1MouseExit(Sender: TObject);
- procedure JvTransparentButton3Click(Sender: TObject);
- procedure FormCreate(Sender: TObject);
- private
- { Private declarations }
- public
- { Public declarations }
- end;
- var
- Form1: TForm1;
- LaunchTestOnPic : TPicture;
- implementation
- {$R *.dfm}
- {$R MyRes.Res}
- procedure TForm1.JvTransparentButton1MouseEnter(Sender: TObject);
- begin
- JvHTLabel1.Visible := true;
- end;
- procedure TForm1.JvTransparentButton1MouseExit(Sender: TObject);
- begin
- JvHTLabel1.Visible := false;
- end;
- procedure TForm1.JvTransparentButton3Click(Sender: TObject);
- begin
- application.terminate();
- end;
- procedure TForm1.FormCreate(Sender: TObject);
- var
- //We need a stream to read our resource
- RS : TResourceStream;
- begin
- //Open resource item named "Clouds"
- RS := TResourceStream.Create(HInstance,'ImageTest',RT_RCDATA);
- try
- //Load our Image from our ResourceStream
- LaunchTestOnPic.Bitmap.LoadFromStream(RS); //Load the bitmap from our stream
- finally
- //Free the memory used for our stream
- RS.Free;
- end;
- end;
- end.
|
Message édité par Tetedeiench le 10-07-2003 à 14:31:37
|