Форум по 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
По умолчанию

Ну вот так например:
Код:
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
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,090
Версия Delphi: 7, XE3, 10.2
Репутация: 49089
По умолчанию

Ну не знаю, у меня сработало:
Код:
1
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 и тд ) не пашеетт
Ответить с цитированием
  #8  
Старый 07.05.2010, 20:41
guver guver вне форума
Прохожий
 
Регистрация: 28.04.2010
Сообщения: 35
Репутация: 10
По умолчанию

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

ладно другой вопрос ) поставил картинку , теперь как бы закрыла кнопки и тд ) как её поставить на самый задний план ?
Ответить с цитированием
Ответ


Delphi Sources

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

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

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

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


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


 

Сайт

Форум

FAQ

Соглашения

Прочее

 

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