Хаю ду ю ду Feniks?
Смотрю и вижу, как ты печатаешь умные вещи и дай-ка, думаю,
тоже что-нибудь напечатаю:
F> Хочу написать свой компонент, что бы перехватывать все диалоговые
F> сообщения функций MessageBox, ShowMessage и другие, и вместо
F> стандартных этих окон рисовать свои.
F> Кто-нибудь может подсказать, как можно перехватить такие функции и
F> выполнить свои действия ?
Короче я из этого понял только одно:
1) Создаешь unit с таким содержимым:
unit Unit2;
interface
uses Windows;
function MessageBox(hWnd: HWND; lpText, lpCaption: PChar; uType: UINT): Integer;
stdcall;
procedure ShowMessage(const Msg: string);
implementation
function MessageBox(hWnd: HWND; lpText, lpCaption: PChar; uType: UINT): Integer;
stdcall;
begin
// код типа
end;
procedure ShowMessage(const Msg: string);
begin
// типа код
end;
end.
2) Добавляешь в код формы
uses ..... Unit2;
PS: Больше ничего в голову не пришло после прочтения словосочетания
F> Хочу написать свой компонент