Листер плагин для 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;

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

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