Мастера DELPHI (документация, исходники, скачать)

Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG

« предыдущая ветвь | форум | следующая ветвь »

avl [Delphi, Windows]

_Avenger_ © (2002-08-22 19:49:00)
Приветствую уважаемые мастера и не только!
Вот написал небольшую библиотеку
http://www.netcrack.by.ru/avl.rar(6kb)
и возникли некоторые вопросы:
1. Как изменить шрифт на контроле?
2. Как обрабатывать события (напр. нажатия на кнопки) ?
3. Возможно ли менять стиль окна после создания?
Может кто-нить сможет мне помочь?
А также укажите на ошибки если они есть..или может
быть можно сделать проще?

Gandalf (2002-08-24 15:09:00) [1]
Но можно так:

var
OldCompWndProc: function(hWnd,Msg,wParam,lParam:Longint):Longint; stdcall;

implementation

var
wclass: twndclass;
hinst: hWnd;

function CompWindowProc(hWnd,Msg,wParam,lParam:Longint):Longint; stdcall;
begin
// Result:=DefWindowProc(hWnd,Msg,wParam,lParam);
OldCompWndProc(hWnd,Msg,wParam,lParam);
case Msg of
WM_LBUTTONDOWN : ShowMessage("Component Clicked!");
end;
end;

//---
function NewButton(Parent:TCtrl;Caption:String):TCtrl;
begin
result.handle:=CreateWindow("BUTTON",PChar(Caption),
WS_CHILD or WS_VISIBLE, 70,70,75,25,Parent.Handle,0,Hinstance,nil);
@OldCompWndProc:=Pointer(SetWindowLong(result.handle,GWL_WNDPROC,DWord(@CompWindowProc)));
end;

Но помоему ты зря силы тратишь - есть KOL. Есть ACL - то, что ты делаешь ближе (по моему) к ACL.

Береги здоровье.

Avenger__ (2002-08-24 14:43:00) [2]
Ну может поможешь всеже сделать реакцию на клик?
Я посмотрю что смогу...

Gandalf (2002-08-24 14:38:00) [3]
Посмотри (в этом форуме) вопрос:
Кому чего в KOLnMCK НЕ хватает?

Avenger__ (2002-08-24 14:20:00) [4]
Какие именно компоненты интересуют?

Gandalf (2002-08-24 13:32:00) [5]
>Вот написал небольшую библиотеку
Посмотрел... Прости меня, конечно еще рано говорить. Но пока это ровно 6Кб Бесполезного кода. Ты сделал некую - причем неудачную надстройку над KOL. Зачем? Ведь стало ничуть не легче.
Пока (дальше незнаю, но пока точно) ты все испортил. И я не пойму зачем. ну зачем делать IntToStr - когда есть Int2Str. А если и делать зачем через Val? Val очень сильная функция - она и Real берет. Это я просто для примера, их там много.

Я понимаю что клевета не критика (,а грязь из лужи не краска из палитры художника),но это все таки критика. И заметь здоровая. Не обижайся. Если хочешь реалино помочь и есть потенциал - напиши пару конпонентов - например для сети. Их нехватает, а судя по тематике сайта (твоего) - это по адресу. DIXI - я сказал.

Не хотел тебя обидеть - извини если так получилось.

Avenger__ (2002-08-23 20:53:00) [6]
http://www.netcrack.by.ru/avl.rar
буквы некоторые на руском были....... :)

Avenger__ (2002-08-23 20:46:00) [7]
Я же спрашивал как это сделать исходя из того что есть у меня...а не с из того что есть в кол...

Gandalf (2002-08-23 16:05:00) [8]
Не качается :(
>1. Как изменить шрифт на контроле?
Control.Font.Assign(MyFont);

>2. Как обрабатывать события (напр. нажатия на кнопки) ?
OnMessage... OnEvent

>3. Возможно ли менять стиль окна после создания?
Возможно.
Form.Style:=...;
Form.StyleEx:=...;

>Может кто-нить сможет мне помочь?
Пиши - поможем.

Наверх

	« предыдущая ветвь \| форум \| следующая ветвь »