![]() Главная страница Случайная страница КАТЕГОРИИ: АвтомобилиАстрономияБиологияГеографияДом и садДругие языкиДругоеИнформатикаИсторияКультураЛитератураЛогикаМатематикаМедицинаМеталлургияМеханикаОбразованиеОхрана трудаПедагогикаПолитикаПравоПсихологияРелигияРиторикаСоциологияСпортСтроительствоТехнологияТуризмФизикаФилософияФинансыХимияЧерчениеЭкологияЭкономикаЭлектроника |
Проект файлы⇐ ПредыдущаяСтр 14 из 14
program Zast_p; uses Forms, Main in 'Main.pas' (fmMаin), begin Application. Initialize; tmZast: =TfmZast.Create(Application); { заставка-формасын қ ұ ру жә не бейнелеу } fmZast.Show; fmZast.Update; Application.CreateForm(TfmMain, fmMain); {Қ осымшаның негізгі формасын қ ұ ру} fmZast.Hide; fmZast.Free; { Заставка формасын жою } Application.Run; end. FmMain негізгі формасының модулінің файлы Unit Main; interface uses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs; type TfmMain=class(TForm) procedure FormCreate(Sender: TObject); private {Private declarations } public { Public declarations } end; var fmMain: TfmMain; implementation
{$R*.dfm}
procedure TfmMain.FormCreate(Sender: TObject); var t: longint; begin t: =GetTickCount div 1000; while (GetTickCount div 1000)< t+5 do; end; end. Заставка-формасының модулінің файлы unit Zast; interface uses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, ExtCtrls; type.. TfmZast = class(TForm) Image1: TImage; procedure FormCreatе(Sender: TObject); private { Private declarations } public { Public declarations } end; var fmZast: TfmZast; implementation
{$R*.dfm}
procedure TfmZast.FormCreate(Sender: TObject); begin fmZast.Position: =poScreenCenter; fmZast. Form Style: =fsStayOnTop; fmZast.Caption: ="; fmZast.BorderStyle: =bsNone; fmZast.BorderIcons: =[ ]; Image1Align: =alLeft; Image1.Stretch: =true; Image1.Width: =fmZast.ClientWidth div 2; end; end. Ескерту: Заставка формасының OnCreate оқ иғ асында жазылғ ан командаларды Объектілер инспекторы терезесі арқ ылы орындағ ан ың ғ айлы. Ә дебиеттер 1. Баженова И.Ю. Delphi 6. Самоучитель программиста. – М: Кудиц-образ, 2002. 2. Глушаков С.В., Клевцов А.Л. Программирование в среде Delphi 7. – Харьков ФОЛИО, 2003. 3. Культин Н. Delphi в задачах и примерах. – СПб.: БХВ – Санкт-Петербург, 2004. 4. Гофман В., Хомоненко А. Delphi 5. – СПб.: БХВ – Санкт-Петербург, 2000. 5. Ерекешева М.М., Ә мірғ алиева Т.А. Delphi ортасында программалау негіздері. Қ. Жұ банов ат. АМУ, 2005. 6. Симонович С.В., Евсеев Г.А. Занимательное программирование: Delphi. – М: Аст-Пресс Книга, 2001. 7. Абрамов С.А., Гнездилова Г.Г., Капустина Е.Н., Селюн М.И. Задачи по программированию. – М., Наука, 1988. 8. Епанешников А., Епанешников В. Программирование в среде Turbo Pascal 7.0. М., Диалог-Мифи, 1993. 9. Острейковский В.А. Информатика. – М: Выс. шк., 2001. 10. Фаронов В.В. Турбо Паскаль 7.0. Начальный курс. М., Нолидж, 1997. 11. Фаронов В.В. Турбо Паскаль 7.0. Практика программирования. М., Нолидж, 1997.
|