![]() |
|
|
|
|
#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
|
|||
|
|||
|
Все должно вроде работать.
Последний раз редактировалось Ama, 07.05.2010 в 20:36. |
|
#7
|
|||
|
|||
|
У меня все по стандарту ) форм 1 и тд ) не пашеетт
![]() |