HTML редактор

← →
Morfey (2003-03-01 22:38) [0]

Может кто-нибудь встречал компанент для прямой правки HTML страницы, типа как Word.

← →
Morfey (2003-03-01 23:35) [1]

Что ни кто не знает???

← →
Palladin (2003-03-02 01:25) [2]

молча и прискорбно сочувствую

← →
Мазут Береговой (2003-03-02 07:21) [3]

Я знаю. Недавно делал такой редактор, только на Бэйсике. Используется компонент DHTMLEdit for IE 5.0. Как пользоваться нигде не нашел. Только нашел готовый код. Доработал немного...

Здесь по русски (Можно скачать CAB файл)
http://dhtmleditor.narod.ru/
Здесь по-нерусски (ьщжно скачать пример)
http://msdn.microsoft.com/workshop/author/dhtml/edit/dhedsdk.exe
Здесь люди по-русски говорят
http://www.relib.com/forums/topic.asp?id=712439
Здесь на Delphi есть кой-чо
http://www.delphikingdom.com/asp/answer.asp?IDAnswer=2489

← →
Мазут Береговой (2003-03-02 07:23) [4]

Там надо кнопочек добавить, ну, и команды...

← →
int64 (2003-03-02 08:06) [5]

> ... для прямой правки HTML страницы, типа как Word.

TWebBrowser.

Включается режим редактирования так:
(WebBrowser1.document as IHTMLDocument2).designMode := "On";

Только не будут действовать нек. клавиши. Чтобы действоали, см. сюда:

Q: ShortCut (Ctrl-C, Ctrl-O, etc.) and Delete keys have no effect. What"s the problem?

A: It"s not a bug, it"s a feature. There"s information about this in a Microsoft KnowledgeBase article Q168777. The code below should fix the problem:

...

var
Form1: TForm1;
FOleInPlaceActiveObject: IOleInPlaceActiveObject;
SaveMessageHandler: TMessageEvent;

...

implementation

...

procedure TForm1.FormActivate(Sender: TObject);
begin
SaveMessageHandler := Application.OnMessage;
Application.OnMessage := MyMessageHandler;
end;

procedure TForm1.FormDeactivate(Sender: TObject);
begin
Application.OnMessage := SaveMessageHandler;
end;

procedure TForm1.FormClose(Sender: TObject; var Action: TCloseAction);
begin
Application.OnMessage := SaveMessageHandler;
FOleInPlaceActiveObject := nil;
end;

procedure TForm1.MyMessageHandler(var Msg: TMsg; var Handled: Boolean);
var
iOIPAO: IOleInPlaceActiveObject;
Dispatch: IDispatch;
begin
{ exit if we don"t get back a webbrowser object }
if WebBrowser1 = nil then
begin
Handled := False;
Exit;
end;

Handled:=(IsDialogMessage(WebBrowser1.Handle, Msg) = True);

if (Handled) and (not WebBrowser1.Busy) then
begin
if FOleInPlaceActiveObject = nil then
begin
Dispatch := WebBrowser1.Application;
if Dispatch <> nil then
begin
Dispatch.QueryInterface(IOleInPlaceActiveObject, iOIPAO);
if iOIPAO <> nil then
FOleInPlaceActiveObject := iOIPAO;
end;
end;

if FOleInPlaceActiveObject <> nil then
if ((Msg.message = WM_KEYDOWN) or (Msg.message = WM_KEYUP)) and
((Msg.wParam = VK_BACK) or (Msg.wParam = VK_LEFT) or (Msg.wParam = VK_RIGHT)) then
//nothing - do not pass on Backspace, Left or Right arrows
else
FOleInPlaceActiveObject.TranslateAccelerator(Msg);
end;
end;

Дерзай.

← →
Мазут Береговой (2003-03-02 08:50) [6]

Точнее вщт здесь MSDN
http://msdn.microsoft.com/archive/default.asp?url=/archive/en-us/dnaredcom/html/edcomdownload.asp

HTML редактор Найти похожие ветки