Jpeg в кнопку

[Jass_Jass]

Как добавить картинку в кнопку в формате jpeg?

Какой модель надо прописать?

[Stilet]

Закинь картинку в свойство BitBtn.Glyph.
Только в uses пропиши модуль jpeg

[Jass_Jass]

Пишет вот что (файл загружается из папки с exe)

First chance exception at $75B3B760. Exception class EInvalidGraphic with message 'Bitmap image is not valid'. Process Project1.exe (1004)

[Stilet]

Код в студию.
Делфи какая?

[Jass_Jass]

Delphi 2010

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls, ExtCtrls, ComCtrls,jpeg, Buttons;
.................

procedure TForm3.FormCreate(Sender: TObject);

begin
 BitBtn1.Glyph.LoadFromFile('1.jpg');
Panel3.height:=154;
Label1.Top:=287;
Form3.Height:=343;
end;

Может не правильно было кидать в Create ?

[Stilet]

jpeg поставь первым в списке модулей.

[Аватар]

Как это может повлиять? Там в секции инициализации регистрируется jpg и без разницы где стоит. имхо

[Stilet]

регистрируется jpg и без разницы где стоит. имхо

Проведи эксперимент:

unit Unit1;

{$mode objfpc}{$H+}

interface

uses  Unit2,Unit3,
      Classes, SysUtils, FileUtil, Forms, Controls, Graphics, Dialogs;

type

			{ TForm1 }

      TForm1 = class(TForm)
						procedure FormCreate(Sender: TObject);
      private
            { private declarations }
      public
            { public declarations }
      end;

var
      Form1: TForm1;

implementation

{$R *.lfm}

{ TForm1 }

procedure TForm1.FormCreate(Sender: TObject);
begin
 Caption:=IntToStr(a);
end;

end.

unit Unit2;

{$mode objfpc}{$H+}

interface

uses
      Classes, SysUtils;
const a=1;
implementation

end.

и

unit Unit3;

{$mode objfpc}{$H+}

interface

uses
      Classes, SysUtils;
const a=2;
implementation

end.

Сначала напиши uses Unit2,Unit3, потом uses Unit3,Unit2,
И посмотри что выведется

[Аватар]

Это понятно - тут зависимость от порядка следования в uses. И ни как не связано со случаем ТС. Обычно jpeg бросаю в конец, иногда после него бывает еще чего-то и ни каких проблем

[Jass_Jass]

Так:
uses Unit1 ,Unit2;

А если у меня 8 unit-ов (форм),их туда не надо добавлять?


Если так,то выделяет это (панель)

procedure TForm3.FormCreate(Sender: TObject);

begin
BitBtn1.Glyph.LoadFromFile('1.jpg') ;
Panel3.height:=154;
Label1.Top:=287;
Form3.Height:=343;
end;