Форум: "Основная";
Текущий архив: 2003.08.04;
Скачать: [xml.tar.bz2];
Внизпроцедура WindowProc Найти похожие ветки
← →
Endi (2003-07-19 23:29) [0]Уважаемые мастера!!!
У меня такой вопрос: как вообще работает процедура WindowProc, причем мне, например, не понятно - как вызвать API-поцедур?
У меня есть форма на ней панель, на панели поле ввода.
Если применяю эту функцию для поля ввода, то задний фон становится, как у формы, если к панели, то у панели свойство Caption меняется с Panel1 на Form1. Почему она так действует?
← →
Rouse_ (2003-07-19 23:59) [1]Что значит применяешь?
Покажи код
Желаю успехов
← →
Endi (2003-07-20 00:22) [2]procedure TForm1.FormCreate(Sender: TObject);
begin
SetWindowLong(Edit1.Handle, GWL_EXSTYLE, GetWindowLong(Edit1.Handle, GWL_EXSTYLE) or WS_EX_TRANSPARENT);
EditProc:=edit1.WindowProc;
edit1.WindowProc:=WMCtlColorEdit;
Edit1.Brush.Style := bsClear
end;
procedure TForm1.Edit1Change(Sender: TObject);
var
R: TRect;
begin
R := Edit1.BoundsRect;
InvalidateRect(Handle, @R, true);
end;
procedure TForm1.WMCtlColorEdit(var Message : TMessage);
var
CTEditMsg:TWMCTLCOLOREDIT;
begin
CTEditMsg:=TWMCTLCOLOREDIT(message);
if CTEditMsg.ChildWnd=edit1.Handle then
SetBkMode(CTEditMsg.ChildDC, TRANSPARENT);
else EditProc(message);
inherited;
end;
если стоит edit1.WindowProc:=WMCtlColorEdit, то фон у Edit"а тако же как у формы, если panel1 то Caption будет Form1
← →
Del (2003-07-20 02:58) [3]Процедура WinodwProc работает так как ты ее запрограммируешь, вобщем как и любая другая процедура или функция. :)
Страницы: 1 вся ветка
Форум: "Основная";
Текущий архив: 2003.08.04;
Скачать: [xml.tar.bz2];
Память: 0.44 MB
Время: 0.007 c