Скачать: CL | DM;

Листер плагин для Total Commander на KOL/MCK   Найти похожие ветки 

← →
Muxaspb ©   (2006-01-09 16:55) [0]

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

---

← →
BeZ   (2006-01-10 09:46) [1]

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

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

---

← →
SPeller ©   (2006-01-10 09:48) [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;


---

← →
Muxaspb ©   (2006-01-10 18:34) [3]

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

---

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

Скачать: CL | DM;



Память: 0.45 MB
Время: 0.035 c