Нарисовать форму

[LeoN]

Я нашел много статей по данной теме,но рахобраться не смог.Мне надо создать форму-заставку либо рисованную программно,но лучше из изображения(любого типа мне без разницы).Помогите и если приведете код объясните все действия, пожалуйста.

[mihali4]

Сообщение от LeoN

Я нашел много статей по данной теме,но рахобраться не смог.Мне надо создать форму-заставку либо рисованную программно,но лучше из изображения(любого типа мне без разницы).Помогите и если приведете код объясните все действия, пожалуйста.

Вот, сделал для вас небольшую подборку:
Вложение 1260
Помощь и разъяснения - ставим курсор в окне редактора на непонятное слово в тексте программы и нажимаем F1.

[Maslan]

В меню Project->View source

Добавляешь в uses: ExtCtrls,Controls;

переменные:
Var F:TForm;I:TImage;
Пишешь процедурку:

Procedure CreateNewForm;
 begin
  F:=TForm.Create(nil); //Создали форму
  I:=TImage.Create(nil); //Создали картинку
  I.Picture.LoadFromFile('c:\picture.bmp'); //загрузили изображение
  I.Parent:=F;//Поместили картинку на форму
  I.Stretch:=True;//Обрезали картинку
  I.Align:=alClient;//Растянули
  F.BorderIcons:=[];//Убрали кнопки "X", "_" и "O"
  F.BorderStyle:=bsNone;// Убрали заголовок
  F.Position:=poDesktopCenter;//Поставили по центру
  F.autosize:=True;//Подогнали размер
  F.Repaint;//Обновили
  F.ShowModal;//Показали и ждём, пока закроют по alt+f4
 end;

После begin дописываешь CreateNewForm;

begin
   CreateNewForm;
  Application.Initialize;
  Application.CreateForm(TForm1, Form1);
  Application.Run;
end.