всё, я таки придумал решение:
блок interface:
Код:
TTaskBarButton = class(TObject)
private
FCaption: String;
FHandle: HWND;
procedure SetCaption(ACaption: String);
public
property Caption: String read FCaption write SetCaption;
property Handle: HWND read FHandle;
procedure Show;
procedure Hide;
constructor Create;
destructor Destroy; override;
end;
блок implementation:
Код:
procedure TTaskBarButton.SetCaption(ACaption: String);
begin
FCaption:=ACaption;
SetWindowText(Handle,ACaption);
end;
procedure TTaskBarButton.Show;
begin
ShowWindow(FHandle,SW_SHOW);
end;
procedure TTaskBarButton.Hide;
begin
ShowWindow(FHandle,SW_HIDE);
end;
function TaskBarProc(hWnd: HWND; Msg: UINT; wParam: WPARAM; lParam: LPARAM): LRESULT; stdcall;
begin
if Msg <> WM_SYSCOMMAND then Result:=DefWindowProc(hWnd,Msg,wParam,lParam) else Result:=0;
end;
constructor TTaskBarButton.Create;
var
WindowClass: TWndClass;
begin
inherited;
WindowClass.style:=CS_HREDRAW or CS_VREDRAW;
WindowClass.lpfnWndProc:=@TaskBarProc;
WindowClass.cbClsExtra:=0;
WindowClass.cbWndExtra:=0;
WindowClass.hInstance:=HInstance;
WindowClass.hIcon:=LoadIcon(0,'MAINICON');
WindowClass.hCursor:=LoadCursor(0,IDC_ARROW);
WindowClass.hbrBackground:=COLOR_BTNFACE;
WindowClass.lpszMenuName:=nil;
WindowClass.lpszClassName:='TTaskBarButton';
Windows.RegisterClass(WindowClass);
FHandle:=CreateWindowEx(WS_EX_APPWINDOW,'TTaskBarButton',nil,WS_POPUP,0,0,0,0,0,0,HInstance,nil);
end;
destructor TTaskBarButton.Destroy;
begin
Windows.UnregisterClass('TTaskBarButton',HInstance);
inherited;
end;
объявить переменную (в блоке interface, разумеется):
Код:
var
TaskBarButton: TTaskBarButton;
в класс формы добавить (причём добавить для каждой формы, где отличается заголовок):
Код:
protected
procedure CreateParams(var Params: TCreateParams); override;
реализация:
Код:
procedure TForm1.CreateParams(var Params: TCreateParams);
begin
inherited;
Params.WndParent:=TaskBarButton.Handle;
end;
в основном файле программы сразу после begin:
Код:
TaskBarButton:=TTaskBarButton.Create;
TaskBarButton.Caption:='Заголовок';
в конце вставить
чтобы сменить заголовок - используйте TaskBarButton.Caption.
методы Show/Hide ясно что делают. |
