Главная страница
    Top.Mail.Ru    Яндекс.Метрика
Форум: "Основная";
Текущий архив: 2002.10.28;
Скачать: [xml.tar.bz2];

Вниз

MDI панель. Кто встречал?   Найти похожие ветки 

 
PalP   (2002-10-17 12:03) [0]

Никто не встречал такого компонета, как панель со списком дочерних окон MDI приложения (как в Opera, 1c)? Плиз, надо. Или подскажите принцип, по которому его можно сделать самому. По идее, мне нужно отлавливать следующие системные события: создание нового MDI окна, закрытие окна, активизирование окна. Если можно, подскажите, компонент напишу.


 
Игорь Шевченко   (2002-10-17 12:32) [1]

unit main;

interface

uses
Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
Menus, Buttons, ExtCtrls;

const
WM_MDICHILDCREATED = WM_USER + 666;

type
TfMain = class(TForm)
MainMenu1: TMainMenu;
Window1: TMenuItem;
New1: TMenuItem;
ButtonsPanel: TPanel;
NewIconChild1: TMenuItem;
Log1: TMenuItem;
View1: TMenuItem;
procedure New1Click(Sender: TObject);
procedure NewIconChild1Click(Sender: TObject);
procedure FormCreate(Sender: TObject);
procedure View1Click(Sender: TObject);
private
ButtonsCount : Integer;
FClientInstance : TFarProc;
FPrevClientProc : TFarProc;

procedure ClientWndProc(var Message: TMessage);
procedure AddWindowToMonitor (WindowHandle : HWND);
procedure RemoveButtonFromPanel (TagValue : Integer);
public
{ Public declarations }
end;

var
fMain: TfMain;

implementation

uses
Child, IconChild, Monitor, Log;

{$R *.DFM}

{ TfMain }

procedure TfMain.New1Click(Sender: TObject);
begin
with TfChild.Create(Application) do
Show();
end;


procedure TfMain.FormCreate(Sender: TObject);
begin
FClientInstance := MakeObjectInstance(ClientWndProc);
FPrevClientProc := Pointer(GetWindowLong(ClientHandle,
GWL_WNDPROC));
SetWindowLong(ClientHandle,
GWL_WNDPROC, LongInt(FClientInstance));
end;

procedure TfMain.ClientWndProc(var Message: TMessage);
var
AText : array[0..MAX_PATH] of char;
AControl : TWinControl;
LogString : String;
begin
with Message do
case Msg of
WM_MDICREATE:
begin
Result := CallWindowProc(FPrevClientProc,
ClientHandle,
Msg,
wParam,
lParam);
AddWindowToMonitor (Result);
LogString := "";
if GetWindowText(Result, AText, SizeOf(AText)) <> 0 then
LogString := Format("MDI child %s created", [AText]);
AControl := FindControl(Result);
if AControl <> nil then
LogString := LogString + " VCL component name is "+AControl.Name;
LogEvent(LogString);
end;
WM_MDIDESTROY:
begin
LogString := "";
if GetWindowText(wParam, AText, SizeOf(AText)) <> 0 then
LogString := Format("MDI child %s destroyed", [AText]);
AControl := FindControl(wParam);
if AControl <> nil then
LogString := LogString + " VCL component name is "+AControl.Name;
LogEvent(LogString);
RemoveButtonFromPanel(wParam);
Result := CallWindowProc(FPrevClientProc,
ClientHandle,
Msg,
wParam,
lParam);
end;
else
Result := CallWindowProc(FPrevClientProc,
ClientHandle,
Msg,
wParam,
lParam);
end;
end;

.....

end.


 
Дремучий   (2002-10-17 14:49) [2]

>>Игорь Шевченко
а нафиг три шестерки тыкать куда нада и куда не надо?
:)


 
Игорь Шевченко   (2002-10-17 14:50) [3]

Дремучий © (17.10.02 14:49)

Три пятерки - Аэрофлот. Некузяво :-)


 
PalP   (2002-10-17 16:59) [4]

Спасибо за ответ, буду пробовать. В данный момент нет времени чтобы проверить.



Страницы: 1 вся ветка

Форум: "Основная";
Текущий архив: 2002.10.28;
Скачать: [xml.tar.bz2];

Наверх





Память: 0.56 MB
Время: 0.032 c
14-92699
vopros
2002-10-07 11:28
2002.10.28
у КОГО КАКИЕ ЛЮБИМЫЕ ПЕСНИ?


14-92646
incognito2
2002-10-06 20:02
2002.10.28
Очень надо!!! Придумайте хоть алгоритм.


14-92698
Undert
2002-10-07 23:47
2002.10.28
Не упустите возможность быть в первых номерах .....


14-92675
AL2002
2002-10-07 12:29
2002.10.28
Ва-ва, чё делать?


1-92528
Semion
2002-10-16 08:28
2002.10.28
прог





Afrikaans Albanian Arabic Armenian Azerbaijani Basque Belarusian Bulgarian Catalan Chinese (Simplified) Chinese (Traditional) Croatian Czech Danish Dutch English Estonian Filipino Finnish French
Galician Georgian German Greek Haitian Creole Hebrew Hindi Hungarian Icelandic Indonesian Irish Italian Japanese Korean Latvian Lithuanian Macedonian Malay Maltese Norwegian
Persian Polish Portuguese Romanian Russian Serbian Slovak Slovenian Spanish Swahili Swedish Thai Turkish Ukrainian Urdu Vietnamese Welsh Yiddish Bengali Bosnian
Cebuano Esperanto Gujarati Hausa Hmong Igbo Javanese Kannada Khmer Lao Latin Maori Marathi Mongolian Nepali Punjabi Somali Tamil Telugu Yoruba
Zulu
Английский Французский Немецкий Итальянский Португальский Русский Испанский