|
#1
|
|||
|
|||
Нужна помощь..
как удалить заставку при запуске Project.exe .
не открывая форму. |
#2
|
||||
|
||||
что-то я совсем вопроса не понял...
Начинающий программист уверен, что в 1 килобайте 1000 байт.
Законченный программист уверен, что в 1 километре 1024 метра. |
#3
|
|||
|
|||
заставка появляется при открытии .ехе на 8 сек, не могу удалить ее из за отсутсвии компонента..
|
#4
|
||||
|
||||
Как я понял, у вас есть exe файл, при запуске кот. появляется SplashScreen, который нужно удалить.
А исходник у вас есть? Начинающий программист уверен, что в 1 килобайте 1000 байт.
Законченный программист уверен, что в 1 километре 1024 метра. |
#5
|
|||
|
|||
да, есть исходник..
|
#6
|
||||
|
||||
А взглянуть можно?
Начинающий программист уверен, что в 1 килобайте 1000 байт.
Законченный программист уверен, что в 1 километре 1024 метра. |
#7
|
|||
|
|||
могу скинуть на майл. полностью всю прогу.
|
#8
|
||||
|
||||
Начинающий программист уверен, что в 1 килобайте 1000 байт.
Законченный программист уверен, что в 1 километре 1024 метра. Последний раз редактировалось Karsh, 16.03.2009 в 23:00. |
#9
|
|||
|
|||
отправил, если сможешь сделать, дай ответ на мой майл.
|
#10
|
|||
|
|||
заранее, спасибо!
|
#11
|
||||
|
||||
Мохно создать компонент-заменитель для TCeTButton, например так:
Код:
unit CeTButton; interface uses Graphics, Classes, Buttons; type TCeTButton = class(TBitBtn) private GColor: TColor; protected { Protected declarations } public { Public declarations } published property ColorBorder: TColor read GColor write GColor; end; procedure Register; implementation procedure Register; begin RegisterComponents('Samples', [TCeTButton]); end; end. Открываем файл проекта и смотрим: Код:
program Server; uses Forms, ServOpen in 'ServOpen.pas' {Open}, ServMain in 'ServMain.pas' {Servak}, Mod1 in 'Mod1.pas' {DataModule1: TDataModule}, Zast in 'Zast.pas' {Anim}, AboutProg in 'AboutProg.pas' {About}, GoPrint in 'GoPrint.pas' {Printer}, Help in 'Help.pas' {Instrukt}, on_line_client in 'on_line_client.pas' {On_line}, Sveden1 in 'Sveden1.pas' {Pokupat}; {$R *.res} begin try Anim:=TAnim.Create(Application); // создание SplashScreen Anim.Show; //показ SplashScreen Anim.Update; //обновление окна SplashScreen //Application.Initialize; Application.CreateForm(TOpen, Open); Application.CreateForm(TAbout, About); Application.CreateForm(TPrinter, Printer); Application.CreateForm(TInstrukt, Instrukt); Application.CreateForm(TOn_line, On_line); Application.CreateForm(TServak, Servak); Application.CreateForm(TDataModule1, DataModule1); Application.CreateForm(TPokupat, Pokupat); repeat Application.ProcessMessages; until Anim.CloseQuery; Anim.Hide; //прячем SplashScreen finally Anim.Free; //освобождаем SplashScreen end; Application.Run; end. А отредактировать SplashScreen можно в юните Zast. Начинающий программист уверен, что в 1 килобайте 1000 байт.
Законченный программист уверен, что в 1 километре 1024 метра. |
#12
|
|||
|
|||
т.е. TCeTButton заменить на обычный TBitBtn, и в 8 мормах тоже? а куда надо вписывать компонент-заменитель...его отдельно создать надо?=((
|
#13
|
||||
|
||||
А, извиняюсь, ступил. Программа не долго грузится, просто создатель SplashScrrena сделал его "криво". Вот приводим код проекта к:
Код:
program Server; uses Forms, ServOpen in 'ServOpen.pas' {Open}, ServMain in 'ServMain.pas' {Servak}, Mod1 in 'Mod1.pas' {DataModule1: TDataModule}, Zast in 'Zast.pas' {Anim}, AboutProg in 'AboutProg.pas' {About}, GoPrint in 'GoPrint.pas' {Printer}, Help in 'Help.pas' {Instrukt}, on_line_client in 'on_line_client.pas' {On_line}, Sveden1 in 'Sveden1.pas' {Pokupat}; {$R *.res} begin Application.Initialize; Application.CreateForm(TOpen, Open); Application.CreateForm(TAbout, About); Application.CreateForm(TPrinter, Printer); Application.CreateForm(TInstrukt, Instrukt); Application.CreateForm(TOn_line, On_line); Application.CreateForm(TServak, Servak); Application.CreateForm(TDataModule1, DataModule1); Application.CreateForm(TPokupat, Pokupat); Application.Run; end. Начинающий программист уверен, что в 1 килобайте 1000 байт.
Законченный программист уверен, что в 1 километре 1024 метра. |
#14
|
||||
|
||||
Цитата:
Код:
unit CeTButton; interface uses Graphics, Classes, Buttons; type TCeTButton = class(TBitBtn) private GColor: TColor; protected { Protected declarations } public { Public declarations } published property ColorBorder: TColor read GColor write GColor; end; procedure Register; implementation procedure Register; begin RegisterComponents('Samples', [TCeTButton]); end; end. После установки компонента исходник будет нормально запускаться и ничего в нем менять не нужно (кроме убирания SplashScreen'а). Начинающий программист уверен, что в 1 килобайте 1000 байт.
Законченный программист уверен, что в 1 километре 1024 метра. |
#15
|
|||
|
|||
чет башка уже не варит...не получается=((
|