名前
題名
▼ Mr.XRAYさん > たてぐやさん，DEKOさんどうも． > > 今TLinkLabelってを使ってみたんですが． > どうやら，タグを解析してくれるということらしい? です． > > procedure TForm1.FormShow(Sender: TObject); > begin > LinkLabel1.Caption := '<a href="http://mrxray.on.coocan.jp/">Mr.XRAYのサイト'; > end; > > // ShellExecuteの使用にはusesにShellAPIが必要 > > procedure TForm1.LinkLabel1LinkClick(Sender: TObject; const Link: string; > LinkType: TSysLinkType); > begin > ShellExecute(Handle, PChar('Open'), PChar(Link), nil, nil, SW_SHOWNORMAL); > end; > > これだったら， > > procedure TForm1.Label1Click(Sender: TObject); > var > Link : String; > begin > Link := 'http://mrxray.on.coocan.jp/'; > ShellExecute(Handle, PChar('Open'), PChar(Link), nil, nil, SW_SHOWNORMAL); > end; > > と同じですが... > HTMLからリンクを検出して，等の用途には使えそうですが．よく分かりませんです． >
GIF,JPEG,PNG画像ファイル及びLZH,ZIPファイルをアップロードできます.
600 x 1200 ピクセルを超える画像は縮小表示されます(画像クリックで拡大表示).
(上限122000(120k)バイト)

削除キー Link