Главная страница
    Top.Mail.Ru    Яндекс.Метрика
Форум: "Потрепаться";
Текущий архив: 2003.03.17;
Скачать: [xml.tar.bz2];

Вниз

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



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

Форум: "Потрепаться";
Текущий архив: 2003.03.17;
Скачать: [xml.tar.bz2];

Наверх





Память: 0.46 MB
Время: 0.014 c
3-53895
Conder
2003-02-25 11:30
2003.03.17
Порисовать на Title в DbGride...


14-54162
KiM
2003-03-02 09:56
2003.03.17
TsocketClient & TsocketServer


3-53851
Ihtiandr
2003-02-24 18:54
2003.03.17
uninstall BDE


3-53948
Ed
2003-02-24 18:39
2003.03.17
Delphi&FoxPro


7-54350
Dd
2003-01-22 20:44
2003.03.17
Кто нить знает как отключить...





Afrikaans Albanian Arabic Armenian Azerbaijani Basque Belarusian Bulgarian Catalan Chinese (Simplified) Chinese (Traditional) Croatian Czech Danish Dutch English Estonian Filipino Finnish French
Galician Georgian German Greek Haitian Creole Hebrew Hindi Hungarian Icelandic Indonesian Irish Italian Japanese Korean Latvian Lithuanian Macedonian Malay Maltese Norwegian
Persian Polish Portuguese Romanian Russian Serbian Slovak Slovenian Spanish Swahili Swedish Thai Turkish Ukrainian Urdu Vietnamese Welsh Yiddish Bengali Bosnian
Cebuano Esperanto Gujarati Hausa Hmong Igbo Javanese Kannada Khmer Lao Latin Maori Marathi Mongolian Nepali Punjabi Somali Tamil Telugu Yoruba
Zulu
Английский Французский Немецкий Итальянский Португальский Русский Испанский