| Новости | Поиск | FAQ | Статьи | Книги | Новости VCL | | Форумы ЧАТ | Орешник | KOL и MCK |
Форумы -» Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG

	« предыдущая ветвь | форум | следующая ветвь »

Листер плагин для Total Commander на KOL/MCK

Muxaspb ©   (2006-01-09 16:55:00) 

Кто-нибудь писал такой плагин на KOL/MCK? Не могу понять, как там форму сделать. Может у кого есть опыт в этом деле, пример какой-нибудь, хотя бы просто как пустую форму показать. Только обязательно на KOL/MCK.
Буду очень признателен любой информации.

---

Muxaspb   (2006-01-10 18:34:00) [1]

Спасибо, буду разбираться.
P.S. А примера с зеркальной формой нет?

---

SPeller   (2006-01-10 09:48:00) [2]

Я делал так:

type
 TCControl = object(TControl)
 end;
 PCControl = ^TCControl;

var
 tm: PCControl;
begin
 New( tm, Create );
 tm.fHandle := ListerWnd;
 tm.fStyle := GetWindowLong( ListerWnd, GWL_STYLE );
 tm.fExStyle := GetWindowLong( ListerWnd, GWL_EXSTYLE );
 tm.fEnabled := True;
 tm.fVisible := True;
 tm.fIsForm := True;
 tm.fIsControl := False;

 NewFrmMain( FFrm, tm );
//  AddWndProp('FORM_OBJECT', FFrm.Form.Handle, Cardinal(FFrm));
//  SetProp( FFrm.Form.Handle, 'FORM_OBJECT', Cardinal( FFrm ) );
 Applet := nil;
 AppletTerminated := False;
 AppletRunning := True;

 with FFrm^ do
 begin
   fWndProcSet := False;
   fWndProcChd := False;
   fListerWnd := ListerWnd;

   fListerObj := tm;

   Form.Style := WS_CHILD or WS_CLIPCHILDREN or WS_CLIPSIBLINGS {or WS_TABSTOP};
   Form.ExStyle := WS_EX_CONTROLPARENT;
   Form.Top := 0;
   Form.Left := 0;
   SetParent(Form.Handle, ListerWnd);

   FCtl := Form;
   ListerObj := fListerObj;
 end;


---

BeZ   (2006-01-10 09:46:00) [3]

смотри примеры
про cоздание форм и показ их из dll

ведь плагин для ТС - это dll (только расширение другео)

---

Наверх