не хочет устанавливаться - Компоненты Delphi

digital-stream · 23.02.2012, 00:11

unit Scroll;

interface

uses
Windows, SysUtils, Classes, Controls, ExtCtrls, Graphics, Messages, StdCtrls;
type
TColorScrollBar=class(TScrollBar)
private
procedure CNCtlColorScrollBar(var Msg:TMessage);message CN_CtlColorScrollBar;
published
property Color;
end;
implementation

procedure TColorScrollBar.CNCtlColorScrollBar (var Msg:TMessage);
begin
DefaultHandler(Msg)
end;

begin
RegisterComponents('Standart', [TcolorScrollBar])

end.

Пепел Феникса · 23.02.2012, 00:32

а что пишет то?

digital-stream · 23.02.2012, 16:22

Цитата:

Сообщение от Пепел Феникса

а что пишет то?

1.JPG
2.JPG

23.02.2012, 00:11	#1
digital-stream Пользователь Регистрация: 03.05.2011 Сообщений: 81	не хочет устанавливаться unit Scroll; interface uses Windows, SysUtils, Classes, Controls, ExtCtrls, Graphics, Messages, StdCtrls; type TColorScrollBar=class(TScrollBar) private procedure CNCtlColorScrollBar(var Msg:TMessage);message CN_CtlColorScrollBar; published property Color; end; implementation procedure TColorScrollBar.CNCtlColorScrollBar (var Msg:TMessage); begin DefaultHandler(Msg) end; begin RegisterComponents('Standart', [TcolorScrollBar]) end.

23.02.2012, 00:32	#2
Пепел Феникса Старожил Регистрация: 28.01.2009 Сообщений: 21,000	а что пишет то? Хорошо поставленный вопрос это уже половина ответа. \| Каков вопрос, таков ответ. Программа делает то что написал программист, а не то что он хотел. Функции/утилиты ждут в параметрах то что им надо, а не то что вы хотите.

Похожие темы
Тема	Автор	Раздел	Ответов	Последнее сообщение
Не хочет изменять в БД	cargo29	PHP	14	07.10.2011 13:54
не хочет компилироваться (С++)	Belomor	Помощь студентам	3	30.11.2009 19:45
как при нажатии на BUTTON сразу начала устанавливаться какая -нибудь инсталяшка?	gotman	Компоненты Delphi	5	04.09.2007 15:07