![]() |
|
|
#1
|
|||
|
|||
![]() ПОдскажите ) вопрос канеш нубский нно
![]() Как на форму поставить фон ? ) есть картинка есть форма с текстом и прочим , картинку под низ. код и может если надо какие свойства формы ![]() ![]() |
#2
|
||||
|
||||
![]() Ну вот так например:
Код:
unit Unit1; interface uses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, StdCtrls; type TForm1 = class(TForm) procedure FormCreate(Sender: TObject); procedure FormPaint(Sender: TObject); private Bmp: TBitmap; public { Public declarations } end; var Form1: TForm1; implementation {$R *.dfm} procedure TForm1.FormCreate(Sender: TObject); begin Bmp := TBitmap.Create; Bmp.LoadFromFile('C:\1.bmp'); end; procedure TForm1.FormPaint(Sender: TObject); begin Form1.Canvas.StretchDraw(Form1.ClientRect,Bmp); end; end. Жизнь такова какова она есть и больше никакова. Помогаю за спасибо. |
#3
|
|||
|
|||
![]() а в свойствах формы ниче менять ненадо ? так чтоб рисунок был позади всего )
|
#4
|
|||
|
|||
![]() сделал как ты написал ошибок не дало но и фона тоже
![]() |
#5
|
|||
|
|||
![]() Ну не знаю, у меня сработало:
Код:
Self.Canvas.StretchDraw(Rect(0,0,Width,Height),Bmp); |
#6
|
|||
|
|||
![]() Все должно вроде работать.
APPLICATION.TERMINATOR Последний раз редактировалось Ama, 07.05.2010 в 20:36. |
#7
|
|||
|
|||
![]() У меня все по стандарту ) форм 1 и тд ) не пашеетт
![]() ![]() |