Мохно создать компонент-заменитель для 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.
Потом установить этот компонент и можно изменять исходник, но проблемка в том, что программа долго грузится и убрав SplashScreen, пользователь может подумать, что программа не запустилась или "лагает". Поэтому советую не уберать SplashScreen, а хотябы заменить его.
Открываем файл проекта и смотрим:
Код:
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, то уберите все строчки с окном Anim.
А отредактировать SplashScreen можно в юните Zast.