Форум: "KOL";
Текущий архив: 2006.10.29;
Скачать: [xml.tar.bz2];
Вниз
Листер плагин для 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 вся ветка
Форум: "KOL";
Текущий архив: 2006.10.29;
Скачать: [xml.tar.bz2];
Память: 0.45 MB
Время: 0.047 c
