Главная страница
    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.043 c
3-92323
wHammer
2002-10-04 14:41
2002.10.28
Переодический реквизит


14-92673
Неизвестно кто
2002-10-07 15:02
2002.10.28
Delphi : Не зря ли


3-92345
Atamali Mamedov
2002-10-07 09:08
2002.10.28
Как заставить в SQL не чувствовать регистр букв ?


4-92780
Tihas
2002-09-13 21:05
2002.10.28
Как самым быстрым способом, прочитать BMP файл.


1-92451
Vitaliy79
2002-10-17 07:38
2002.10.28
Как использовать функции ICQ





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
Английский Французский Немецкий Итальянский Португальский Русский Испанский