» Вопросы по Delphi

YFred
Тебе нужно что нибудь типа Borland StarTeam

Вопрос! Как сделать, чтобы заставка грузилась как PL/SQL Developer? Т.е. заставка исчезает только после того, как загрузится главная форма. Буду очень признателен за кусочек рабочего кода!

Создаеш форму для заставки. FormStyle:=bsNone (тоесть чтобы заголовка не было). На неё бросаеш картинку и прочю красоту. Лезишь Project.dpr (Project -> View Source).
Ищещ там строку создания своей формы и сносиш. а дальше переписываеш следующим образом.

Код:
Application.Initialize;
Screen.Cursor:=crHourGlass;
FormSplash:=TFormSplash.Create(Application);//это наша заставка
FormSplash.FormStyle:=fsStayOnTop;
FormSplash.Show;
FormSplash.Update;
//Здесь создание остальных форм - начало
Application.CreateForm(TForm, Form);
//Здесь создание остальных форм - конец
FormSplash.Free; //Убираем форму за собой
screen.Cursor:=crDefault;
Application.Run;//Запускаем приложения.

OdesitVadim

Конечно спасибо за быстрый ответ, но это не то! Суть в том, что окно заставки исчезает и только потом открывается главная форма.
А надо, чтобы заставка "висела" а за ней открывалась бы главная форма и только потом заставка должна исчезнуть!

Shadi
тогда сделаем так. Метод немного извращённый, но он того стоит.
строку FormSplash.Free; нужно перенести в главную форму следующим образом. Поставим на форму таймер и в него впишем

Код:
Timer1.enabled:=false;
FormSplash.Free;

OdesitVadim

И так не прет! На OnCreate он не отражает главную форму вообще...

ТОгда только через потоки. Мутненько будет.
Попробуй после
Цитата:

FormSplash.Free;

вставить Form1.show (свою главную форму)

OdesitVadim


Цитата:

ТОгда только через потоки

Да это будет действительно мутненько!

Я пробовал на событие оnShow вешать FormSplash.Free; Но нет прорисовки формы, хотя что-то пытается..
Может есть какой способ попроще, чем в потоках?

Shadi
Я тут маленький примерчик сделал, попробуй
http://rapidshare.de/files/1153548/demo.rar.html

после того как скачаешь, удали, что бы не засорять ресурс
http://rapidshare.de/files/1153548/demo.rar?killcode=382641025

VitaliM

Кинь плиз еще разок, а то кто-то их уже удалил!


Цитата:

http://rapidshare.de/files/1153548/demo.rar.html

File /files/1153548/demo.rar.html has been deleted.



Добавлено:
Сорри, наверное это я впопыхах и удалил
Плиз еще раз выложи или в профильное мыло

Shadi
http://rapidshare.de/files/1166753/demo.rar.html
ссылку на удаление не кладу, как скачаешь сообщи, я сам удалю.

VitaliM

Грацио сеньоре!!!
Все гениальное просто!!!
Можно удалять!

Shadi
Я рад, что тебе понравилось. Удачи.

Добавлено:
Посмотри по ссылке, может тебе пригодится...
http://forum.ru-board.com/topic.cgi?forum=35&topic=24919&start=340#19

VitaliM

Классная вещь! Еще раз вери сенкс!
Есть еще один вопросик над которым бьюсь и пока нет результата.

Суть в том, что когда делаю заставку в цикле, то прогрессбар сильно дергается
Вот фрагмент кода
FrmSplash := TFrmSplash.Create(self);
FrmSplash.MaxMt:= Dmod.QryTmp.RecordCount;
FrmSplash.Show;
...
while not Dmod.QryTmp.Eof do
begin
FrmSplash.Update;
FrmSplash.TekMt :=j;
inc(j);
...
end;

Может кто сталкивался, подскажите...

Application.ProcessMessage - заставит "ощущать" мишь и клавиатуру. Он в подобных цыклах нужен. прогрессбар дёргается по той причине что при каждом обновлении он пересоздаётся. Выходов два: либо пропускать часть обновлений (типа если j mod 5=0 then begin FrmSplash.TekMt :=j;FrmSplash.Update;end; - я переставил их) или использовать компонент TGauge.

OdesitVadim

Спасибо, буду пробовать
О результатах скажу позже...


Добавлено:

Цитата:

использовать компонент TGauge.

Поменял и все пошло! Вот что значит - МАСТЕР!

Подскажите пожалуйста учебник (желательно список функций)+(не help) по Delphi.

Вот здесь есть книжки
http://podgoretsky.com/ddp.html

HelL_Doctor Но ты все же постарайся приобрести бумажную книгу по Delphi. Принцип выбора прост - больше страниц, меньше картинок меньше шрифт, я таким образом прикупил в свое время Ч.Калверта по Delphi2, до сих пор пользуюсь, хоть и на семерку перелез

Подскажите, как можно навсегда убрать каретку из компоненты TEdit? Я использовал HideCaret(Edit1.Handle);, но она не всегда выручает. :\

Larry Laffer
Навсегда - если перепишешь TEdit, а так можно в Aplication.OnIdl HideCaret вызывать.

Larry Laffer
Может, через SetWindowLong поменять атрибуты окна? (имеется в виду Edit.Handle)
С параметром GWL_WNDPROC можно подставить свою оконную процедуру, а в ней в обработчике события WM_SETFOCUS написать HideCaret, чтобы при получении фокуса прятать каретку.

MrZeRo, спасибо, буду пробовать.

З.Ы.: А может компонента такая есть, чтобы можно было автоматом прятать каретку?

Larry Laffer
Не видел таких.

Larry Laffer
Да, конешно есть: TAdvancedCaretHider
)))

Можно ли на делфи сделать загрузочную дискету (полностью с форматированием под загрузчик).
P.S. Нужно именно из делфи. Очень нужно помогите пожалуйста.

Pentium133

Цитата:

Да, конешно есть: TAdvancedCaretHider

И где оно лежит

Для начала сделай образ какой - нибудь загрузочной дискетки. Вручную (тоесть программно) делать - немеряный геморой. Даже майкрософт так делает. Потом поппробуй открыть дисковод как файл и писать туда. тоесть что-то в виде CreateFile('\\.\A\'......)

Ну а все таки есть же такие программы которые автоматически создают дискету (они же на чем то писались).

Цитата:

Ну а все таки есть же такие программы которые автоматически создают дискету (они же на чем то писались).

Ну они не создают дискету, а воссоздают файловую структуру . А работают они примерно сл образом, по секторное считывание данных с дискеты (или еще более мелкие единицы для считывания) запись этих данных в собственную структуру файла, который хранит этот образ. А процесс записи наоборот, считывают данные из файла а пишут на дискету.

Цитата:

Потом поппробуй открыть дисковод как файл и писать туда. тоесть что-то в виде CreateFile('\\.\A\'......)

OdesitVadim правильно тебе написал. Хотя можно работать и через DeviceIOControl. (вроде так называется, видел сорцы программы которая позволяла побайтно править данные на винте в любой области раздела в 9х)