Форум по Delphi программированию

Delphi Sources



Вернуться   Форум по Delphi программированию > Все о Delphi > [ "Начинающим" ]
Ник
Пароль
Регистрация <<         Правила форума         >> FAQ Пользователи Календарь Поиск Сообщения за сегодня Все разделы прочитаны

Ответ
 
Опции темы Поиск в этой теме Опции просмотра
  #1  
Старый 07.05.2010, 19:22
guver guver вне форума
Прохожий
 
Регистрация: 28.04.2010
Сообщения: 35
Репутация: 10
По умолчанию Фон

ПОдскажите ) вопрос канеш нубский нно

Как на форму поставить фон ? ) есть картинка есть форма с текстом и прочим , картинку под низ.

код и может если надо какие свойства формы
Ответить с цитированием
  #2  
Старый 07.05.2010, 19:37
Аватар для Страдалецъ
Страдалецъ Страдалецъ вне форума
Гуру
 
Регистрация: 09.03.2009
Адрес: На курорте, из окна вижу теплое Баренцево море. Бррр.
Сообщения: 4,723
Репутация: 52347
По умолчанию

Ну вот так например:
Код:
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  
Старый 07.05.2010, 19:48
guver guver вне форума
Прохожий
 
Регистрация: 28.04.2010
Сообщения: 35
Репутация: 10
По умолчанию

а в свойствах формы ниче менять ненадо ? так чтоб рисунок был позади всего )
Ответить с цитированием
  #4  
Старый 07.05.2010, 19:50
guver guver вне форума
Прохожий
 
Регистрация: 28.04.2010
Сообщения: 35
Репутация: 10
По умолчанию

сделал как ты написал ошибок не дало но и фона тоже
Ответить с цитированием
  #5  
Старый 07.05.2010, 20:33
lmikle lmikle вне форума
Модератор
 
Регистрация: 17.04.2008
Сообщения: 8,096
Версия Delphi: 7, XE3, 10.2
Репутация: 49089
По умолчанию

Ну не знаю, у меня сработало:
Код:
Self.Canvas.StretchDraw(Rect(0,0,Width,Height),Bmp);
может у тебя форма имеет другое имя? Я сослался как на Self.
Ответить с цитированием
  #6  
Старый 07.05.2010, 20:33
Ama Ama вне форума
Активный
 
Регистрация: 15.07.2008
Сообщения: 260
Репутация: 23
По умолчанию

Все должно вроде работать.
__________________
APPLICATION.TERMINATOR

Последний раз редактировалось Ama, 07.05.2010 в 20:36.
Ответить с цитированием
  #7  
Старый 07.05.2010, 20:41
guver guver вне форума
Прохожий
 
Регистрация: 28.04.2010
Сообщения: 35
Репутация: 10
По умолчанию

У меня все по стандарту ) форм 1 и тд ) не пашеетт
Ответить с цитированием
Ответ


Delphi Sources

Опции темы Поиск в этой теме
Поиск в этой теме:

Расширенный поиск
Опции просмотра
Комбинированный вид Комбинированный вид

Ваши права в разделе
Вы не можете создавать темы
Вы не можете отвечать на сообщения
Вы не можете прикреплять файлы
Вы не можете редактировать сообщения

BB-коды Вкл.
Смайлы Вкл.
[IMG] код Вкл.
HTML код Выкл.
Быстрый переход


Часовой пояс GMT +3, время: 06:14.


 

Сайт

Форум

FAQ

Соглашения

Прочее

 

Copyright © Форум "Delphi Sources" by BrokenByte Software, 2004-2025