|
ｿｽ@ｿｽｿｽRichEditｿｽｿｽｿｽ"http://ｿｽ`ｿｽ`"ｿｽｿｽNｿｽｿｽｿｽbｿｽNｿｽｿｽｿｽｿｽｿｽURLｿｽｿｽJｿｽｿｽｿｽｿｽｿｽ@
|
ｿｽgｿｽbｿｽvｿｽyｿｽ[ｿｽWｿｽｿｽ
ｿｽeｿｽｿｽｿｽｿｽﾌ過具ｿｽｿｽｿｽｿｽO
ｿｽEC/C++
ｿｽEDelphi
ｿｽEVisual BasicｿｽｿｽｿｽSｿｽｿｽ
ｿｽ@(VB2-VB6ｿｽｿｽ.NETｿｽｿｽｿｽp)
ｿｽEVisual Basic(VB2-VB6)
ｿｽEVisual Basic .NET
ｿｽEVisual C++
ｿｽﾖ連ｿｽTｿｽCｿｽg
ｿｽEpapy's softwarelibrary
ｿｽrｿｽMｿｽiｿｽ[ 2005/03/24(ｿｽｿｽ) 20:53:12
ｿｽﾍゑｿｽｿｽﾟまゑｿｽｿｽｿｽDelphiｿｽrｿｽMｿｽiｿｽ[ｿｽﾅゑｿｽ
ｿｽｿｽｿｽoｿｽｿｽｿｽｿｽﾅゑｿｽｿｽﾝまゑｿｽｿｽが、RichEditｿｽｿｽｿｽ"http://ｿｽ`ｿｽ`"ｿｽﾌ包ｿｽｿｽｿｽｿｽｿｽNｿｽｿｽｿｽbｿｽNｿｽｿｽｿｽｿｽｿｽURLｿｽｿｽJｿｽｿｽｿｽﾉはどゑｿｽｿｽｿｽｿｽｿｽﾎ良ゑｿｽｿｽﾌでゑｿｽｿｽ蛯､ｿｽｿｽｿｽH
IPｿｽｿｽｿｽbｿｽZｿｽｿｽｿｽWｿｽｿｽｿｽ[ｿｽﾌようｿｽﾈゑｿｽﾌゑｿｽｿｽｿｽｿｽﾄゑｿｽｿｽｿｽﾌでゑｿｽｿｽｿｽｿｽAｿｽｿｽｿｽｿｽｿｽｿｽURLｿｽｿｽｿｽﾜまゑｿｽｿｽ鼾ｿｽｿｽｿｽｿｽｿｽJｿｽｿｽｿｽｿｽ謔､ｿｽﾉゑｿｽｿｽｿｽｿｽｿｽｿｽﾌでゑｿｽ
TEditorｿｽﾌソｿｽ[ｿｽXｿｽｿｽｿｽｿｽｿｽﾎ会ｿｽｿｽｿｽｿｽｿｽｿｽﾌではと思ｿｽｿｽｿｽﾄ鯉ｿｽｿｽﾄみまゑｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽﾕんかゑｿｽﾕゑｿｽﾅゑｿｽｿｽｿｽ
ｿｽEｿｽｿｽｿｽoｿｽｿｽｿｽｿｽﾅゑｿｽｿｽEｿｽEｿｽE
http://hpcgi1.nifty.com/MADIA/DelphiBBS/wwwlng.cgi?print+200204/02040020.txt
ｿｽETEditorｿｽｿｽｿｽｿｽJｿｽｿｽｿｽﾄゑｿｽｿｽｿｽHPｿｽﾅゑｿｽ
http://homepage3.nifty.com/‾katsuhiko/
ｿｽﾉゑｿｽｿｽｿｽ 2005/03/24(ｿｽｿｽ) 21:33:58
Delphian Worldｿｽﾌコｿｽｿｽｿｽ|ｿｽ[ｿｽlｿｽｿｽｿｽgｿｽｿｽgｿｽｿｽﾈゑｿｽｿｽﾌでゑｿｽｿｽｿｽｿｽ(ｿｽﾆ鯉ｿｽｿｽｿｽｿｽﾄゑｿｽC++Builderｿｽpｿｽﾅゑｿｽｿｽｿｽｿｽｿｽ)ｿｽAｿｽｿｽｿｽﾌようｿｽﾉゑｿｽｿｽｿｽﾎゑｿｽしｿｽｿｽｿｽｿｽｿｽﾆ。
TForm1ｿｽﾉ、
OldRichEditWndProc: TWndMethod;
procedure RichEditWndProc(var Msg: TMessage);
ｿｽｿｽｿｽ`ｿｽB
ｿｽﾈ会ｿｽｿｽｿｽｿｽｿｽｿｽB
//ｿｽtｿｽHｿｽ[ｿｽｿｽｿｽ成ｿｽｿｽｿｽﾉ、URLｿｽｿｽFｿｽｿｽｿｽﾅゑｿｽｿｽｿｽ謔､ｿｽﾉゑｿｽｿｽｿｽ
//RichEdit1ｿｽｿｽTｿｽuｿｽNｿｽｿｽｿｽXｿｽｿｽ
procedure TForm1.FormCreate(Sender: TObject);
var
Mask: DWORD;
begin
Mask := SendMessage(RichEdit1.Handle, EM_GETEVENTMASK, 0, 0);
SendMessage(RichEdit1.Handle, EM_SETEVENTMASK, 0, Mask or ENM_LINK);
SendMessage(RichEdit1.Handle, EM_AUTOURLDETECT, 1, 0);
OldRichEditWndProc := RichEdit1.WindowProc;
RichEdit1.WindowProc := RichEditWndProc;
end;
//URLｿｽｿｽﾇゑｿｽｿｽﾉゑｿｽｿｽｿｽｿｽｿｽｿｽﾆゑｿｽｿｽﾉ、CN_NOTIFYｿｽCｿｽxｿｽｿｽｿｽgｿｽｿｽｿｽｿｽｿｽﾅゑｿｽｿｽｿｽﾌで擾ｿｽｿｽｿｽｿｽBｿｽｿｽｿｽｿｽﾈ外ｿｽﾍデｿｽtｿｽHｿｽｿｽｿｽgｿｽB
procedure TForm1.RichEditWndProc(var Msg: TMessage);
var
NotifyMsg: TWMNotify;
Enl: TENLink;
L: Integer;
tmp: CHARRANGE;
Url: String;
begin
if Msg.Msg = CN_NOTIFY then
begin
NotifyMsg := TWMNotify(Msg);
if NotifyMsg.NMHdr^.code = EN_LINK then
begin
CopyMemory(@Enl, PCHAR(Msg.LParam), SizeOf(TENLink));
//Enl.msgｿｽﾉ、ｿｽｿｽｿｽNｿｽｿｽｿｽbｿｽNｿｽｿｽｿｽﾆゑｿｽｿｽEｿｽNｿｽｿｽｿｽbｿｽNｿｽｿｽｿｽﾆゑｿｽｿｽﾌｿｽｿｽbｿｽZｿｽ[ｿｽWｿｽｿｽｿｽｿｽｿｽｿｽﾌで、ｿｽKｿｽXｿｽｿｽｿｽｿｽｿｽB
//ｿｽｿｽｿｽｿｽｿｽﾅゑｿｽWM_LBUTTONUP
if Enl.msg = WM_LBUTTONUP then
begin
L := Enl.chrg.cpMax - Enl.chrg.cpMin;
SetLength(Url, L);
SendMessage(RichEdit1.Handle, EM_EXGETSEL, 0, LPARAM(@tmp));
SendMessage(RichEdit1.Handle, EM_EXSETSEL, 0, LPARAM(@Enl.chrg));
SendMessage(RichEdit1.Handle, EM_GETSELTEXT, 0, LPARAM(@Url[1]));
SendMessage(RichEdit1.Handle, EM_EXSETSEL, 0, LPARAM(@tmp));
//ｿｽｿｽｿｽﾌ趣ｿｽｿｽ_ｿｽﾅ、Urlｿｽﾏ撰ｿｽｿｽｿｽURLｿｽｿｽｿｽｿｽｿｽｿｽｿｽﾄゑｿｽｿｽｿｽﾌで、ｿｽﾇゑｿｽｿｽﾆでゑｿｽｿｽｿｽｿｽｿｽｿｽｿｽﾄゑｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽB
//ｿｽｿｽｿｽｿｽｿｽﾅゑｿｽForm1ｿｽｿｽCaptionｿｽｿｽURLｿｽｿｽ¥ｿｽｿｽｿｽｿｽｿｽ驍ｾｿｽｿｽｿｽB
Caption := Url;
end;
end
else
begin
OldRichEditWndProc(Msg);
end;
end
else
begin
OldRichEditWndProc(Msg);
end;
end;
ｿｽﾟ具ｿｽｿｽｿｽOS 2005/03/25(ｿｽｿｽ) 03:29:13
ｿｽﾉゑｿｽｿｽﾌゑｿｽｿｽｿｽﾌサｿｽｿｽｿｽvｿｽｿｽｿｽRｿｽ[ｿｽhｿｽｿｽｿｽｿｽｿｽｿｽﾄみまゑｿｽｿｽｿｽｿｽｿｽｿｽA
ｿｽcｿｽOｿｽﾈゑｿｽｿｽｿｽ Win98ｿｽﾅは趣ｿｽｿｽｿｽｿｽIｿｽｿｽURLｿｽﾌハｿｽCｿｽpｿｽ[ｿｽｿｽｿｽｿｽｿｽNｿｽｿｽｿｽﾝ定さｿｽ黷ｸｿｽ_ｿｽｿｽｿｽﾅゑｿｽｿｽｿｽｿｽB
Win2000ｿｽﾅ趣ｿｽｿｽｿｽｿｽｿｽｿｽｿｽAｿｽｿｽｿｽｿｽｿｽIｿｽｿｽURLｿｽﾌハｿｽCｿｽpｿｽ[ｿｽｿｽｿｽｿｽｿｽNｿｽｿｽｿｽﾝ定さｿｽｿｽｿｽﾌゑｿｽURLｿｽｿｽｿｽｿｽｿｽｿｽｿｽ
ｿｽｿｽｿｽOｿｽｿｽｿｽXｿｽyｿｽ[ｿｽXｿｽAｿｽSｿｽpｿｽｿｽｿｽｿｽｿｽA-ｿｽAｿｽ^ｿｽuｿｽﾈどの場合ｿｽｿｽｿｽｿｽｿｽﾅ、ｿｽｿｽｿｽpｿｽｿｽｿｽｿｽｿｽｿｽ_ｿｽuｿｽｿｽｿｽNｿｽHｿｽ[ｿｽeｿｽ[ｿｽVｿｽｿｽｿｽｿｽｿｽﾉ托ｿｽｿｽｿｽURLｿｽﾌ場合ｿｽﾍダｿｽｿｽｿｽﾅゑｿｽｿｽB
ｿｽｿｽｿｽﾌ包ｿｽｿｽ@ｿｽﾅはゑｿｽｿｽ黷ｪｿｽｿｽｿｽEｿｽﾈのでゑｿｽｿｽ蛯､ｿｽｿｽｿｽH
ｿｽﾉゑｿｽｿｽｿｽ 2005/03/25(ｿｽｿｽ) 11:24:01
ｿｽｿｽｿｽ黷ｪｿｽｿｽｿｽEｿｽｿｽｿｽﾆ思ｿｽｿｽｿｽﾜゑｿｽｿｽB
ｿｽｿｽｿｽOｿｽｿｽSetAttributeｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽﾜゑｿｽｿｽB
TEditorｿｽﾅゑｿｽｿｽﾌでゑｿｽｿｽｿｽﾎ、FountainｿｽｿｽｿｽｿｽKｿｽvｿｽｿｽｿｽｿｽｿｽｿｽﾜゑｿｽｿｽB
ｿｽrｿｽMｿｽiｿｽ[ 2005/03/25(ｿｽｿｽ) 23:17:24
ｿｽｿｽｿｽﾝまゑｿｽｿｽｿｽﾜ角 ｿｽｿｽｿｽｿｽｿｽｿｽ@ｿｽｿｽｿｽｿｽｿｽｿｽﾄゑｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽﾌにどゑｿｽｿｽｿｽｿｽｿｽﾎゑｿｽｿｽｿｽｿｽﾌゑｿｽｿｽかｿｽｿｽﾜゑｿｽｿｽｿｽﾅゑｿｽｿｽｿｽ
ｿｽﾆりあｿｽｿｽｿｽｿｽｿｽRｿｽｿｽｿｽpｿｽCｿｽｿｽｿｽｿｽｿｽﾄみて表ｿｽｿｽｿｽｿｽｿｽ黷ｽｿｽGｿｽｿｽｿｽ[ｿｽﾍ以会ｿｽｿｽﾌ通ゑｿｽﾅゑｿｽ
[ｿｽGｿｽｿｽｿｽ[] Unit1.pas(33): ｿｽｿｽｿｽｿｽ`ｿｽﾌ趣ｿｽｿｽﾊ子 : 'EM_GETEVENTMASK'
[ｿｽGｿｽｿｽｿｽ[] Unit1.pas(34): ｿｽｿｽｿｽｿｽ`ｿｽﾌ趣ｿｽｿｽﾊ子 : 'EM_SETEVENTMASK'
[ｿｽGｿｽｿｽｿｽ[] Unit1.pas(34): ｿｽｿｽｿｽｿｽ`ｿｽﾌ趣ｿｽｿｽﾊ子 : 'ENM_LINK'
[ｿｽGｿｽｿｽｿｽ[] Unit1.pas(35): ｿｽｿｽｿｽｿｽ`ｿｽﾌ趣ｿｽｿｽﾊ子 : 'EM_AUTOURLDETECT'
[ｿｽGｿｽｿｽｿｽ[] Unit1.pas(44): ｿｽｿｽｿｽｿｽ`ｿｽﾌ趣ｿｽｿｽﾊ子 : 'TENLink'
[ｿｽGｿｽｿｽｿｽ[] Unit1.pas(46): ｿｽｿｽｿｽｿｽ`ｿｽﾌ趣ｿｽｿｽﾊ子 : 'CHARRANGE'
[ｿｽGｿｽｿｽｿｽ[] Unit1.pas(52): ｿｽｿｽｿｽｿｽ`ｿｽﾌ趣ｿｽｿｽﾊ子 : 'EN_LINK'
[ｿｽGｿｽｿｽｿｽ[] Unit1.pas(57): 'THEN' ｿｽｿｽｿｽKｿｽvｿｽﾈ場所ｿｽｿｽ ｿｽｿｽｿｽﾊ子 'msg' ｿｽｿｽｿｽｿｽｿｽｿｽﾜゑｿｽ
[ｿｽGｿｽｿｽｿｽ[] Unit1.pas(59): ｿｽｿｽｿｽZｿｽqｿｽﾜゑｿｽｿｽﾍセｿｽ‾ｿｽRｿｽｿｽｿｽｿｽ (';') ｿｽｿｽｿｽKｿｽvｿｽﾅゑｿｽ
[ｿｽGｿｽｿｽｿｽ[] Unit1.pas(59): ｿｽｿｽｿｽZｿｽqｿｽﾜゑｿｽｿｽﾍセｿｽ‾ｿｽRｿｽｿｽｿｽｿｽ (';') ｿｽｿｽｿｽKｿｽvｿｽﾅゑｿｽ
[ｿｽGｿｽｿｽｿｽ[] Unit1.pas(61): ｿｽｿｽｿｽｿｽ`ｿｽﾌ趣ｿｽｿｽﾊ子 : 'EM_EXGETSEL'
[ｿｽGｿｽｿｽｿｽ[] Unit1.pas(62): ｿｽｿｽｿｽｿｽ`ｿｽﾌ趣ｿｽｿｽﾊ子 : 'EM_EXSETSEL'
[ｿｽGｿｽｿｽｿｽ[] Unit1.pas(62): ')' ｿｽｿｽｿｽKｿｽvｿｽﾈ場所ｿｽｿｽ ｿｽｿｽｿｽﾊ子 'chrg' ｿｽｿｽｿｽｿｽｿｽｿｽﾜゑｿｽ
[ｿｽGｿｽｿｽｿｽ[] Unit1.pas(76): ';' ｿｽｿｽｿｽKｿｽvｿｽﾈ場所ｿｽｿｽ 'ELSE' ｿｽｿｽｿｽｿｽｿｽｿｽﾜゑｿｽ
[ｿｽGｿｽｿｽｿｽ[] Unit1.pas(78): ｿｽｿｽｿｽｿｽ`ｿｽﾌ趣ｿｽｿｽﾊ子 : 'OldRichEditWndProc'
[ｿｽGｿｽｿｽｿｽ[] Unit1.pas(78): '(' ｿｽｿｽｿｽKｿｽvｿｽﾈ場所ｿｽｿｽ ')' ｿｽｿｽｿｽｿｽｿｽｿｽﾜゑｿｽ
[ｿｽGｿｽｿｽｿｽ[] Unit1.pas(79): '.' ｿｽｿｽｿｽKｿｽvｿｽﾈ場所ｿｽｿｽ ';' ｿｽｿｽｿｽｿｽｿｽｿｽﾜゑｿｽ
[ｿｽxｿｽｿｽ] Unit1.pas(80): ｿｽRｿｽｿｽｿｽpｿｽCｿｽｿｽｿｽｿｽ 'end.' ｿｽﾈ降ｿｽﾌ包ｿｽｿｽｿｽｿｽ無趣ｿｽｿｽｿｽｿｽﾜゑｿｽ
[ｿｽvｿｽｿｽｿｽIｿｽGｿｽｿｽｿｽ[] Project1.dpr(5): 'Unit1.pas' ｿｽｿｽｿｽjｿｽbｿｽgｿｽﾍコｿｽｿｽｿｽpｿｽCｿｽｿｽｿｽﾅゑｿｽｿｽﾜゑｿｽｿｽｿｽﾅゑｿｽｿｽｿｽ
ｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽ迯ｬｿｽｿｽｿｽｿｽｿｽﾄゑｿｽｿｽﾜゑｿｽｿｽﾄ、ｿｽｿｽﾌどゑｿｽｿｽｿｽｿｽｿｽﾎゑｿｽｿｽｿｽｿｽﾌゑｿｽｿｽEｿｽEｿｽE
ｿｽｿｽｿｽｿｽｿｽﾝゑｿｽｿｽｿｽ 2005/03/26(ｿｽy) 00:03:29
ｿｽ@EM_xxx ｿｽﾌｿｽｿｽbｿｽZｿｽ[ｿｽWｿｽｿｽRichEdit.pasｿｽﾉ抵ｿｽ`ｿｽｿｽｿｽｿｽﾄまゑｿｽｿｽBusesｿｽｿｽRichEditｿｽｿｽﾇ会ｿｽｿｽｿｽｿｽ驍ｱｿｽﾆ。
ｿｽｿｽｿｽ黷ｾｿｽｿｽｿｽﾅエｿｽｿｽｿｽ[ｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽ轤｢ｿｽｿｽｿｽｿｽｿｽｿｽﾍゑｿｽｿｽﾅゑｿｽｿｽBｿｽﾜゑｿｽｿｽAｿｽｿｽｿｽｿｽﾉ影ｿｽｿｽｿｽｿｽｿｽｿｽﾄ鯉ｿｽｿｽ黷ｽｿｽGｿｽｿｽｿｽ[ｿｽｿｽｿｽｿｽｿｽｿｽﾜゑｿｽｿｽB
ｿｽｿｽｿｽｿｽﾈ外ｿｽﾍみゑｿｽﾈ、ｿｽ謔ｭｿｽｿｽｿｽｿｽﾎゑｿｽｿｽｿｽｿｽｿｽﾆゑｿｽｿｽｿｽｿｽ‾ｿｽXｿｽｿｽｿｽｿｽｿｽだエｿｽｿｽｿｽ[ｿｽﾌハｿｽYｿｽBｿｽｿｽﾃに鯉ｿｽｿｽﾄみゑｿｽﾎ包ｿｽｿｽｿｽｿｽｿｽﾜゑｿｽｿｽB
ｿｽrｿｽMｿｽiｿｽ[ 2005/03/26(ｿｽy) 00:47:21
ｿｽFｿｽlｿｽﾌゑｿｽｿｽｿｽｿｽｿｽｿｽﾅ厄ｿｽｿｽｿｽｿｽｿｽｿｽｿｽﾅゑｿｽｿｽｿｽｿｽｿｽｿｽﾅゑｿｽ
ｿｽｿｽｿｽpｿｽｿｽｿｽｿｽｿｽﾈどに托ｿｽｿｽｿｽURLｿｽｿｽｿｽﾜまゑｿｽ髞ｭｿｽｿｽｿｽﾉつゑｿｽｿｽﾄはｿｽｿｽOｿｽﾉ表ｿｽｿｽｿｽｿｽｿｽｿｽOｿｽｿｽ
ｿｽuhttp://ｿｽvｿｽｿｽｿｽu http://ｿｽvｿｽﾆ変奇ｿｽｿｽｿｽｿｽ謔､ｿｽﾆ思ｿｽｿｽｿｽﾜゑｿｽ
ｿｽ{ｿｽｿｽｿｽﾉ有ｿｽうｿｽｿｽｿｽｿｽｿｽｿｽｿｽﾜゑｿｽｿｽｿｽｿｽI
