کامپوننتی قویتر از memo

[siroosss]

سلام دوستان
من نیاز مبرم به یه کامپوننتی دارم که علاوه بر شباهت و عملکرد memo دو تا قابلیت دیگه هم داشته باشه : 1 - با کلیک روی هر کلمه یا جمله ای که در اون نمایش داده میشه یه combobox باز بشه (منظور کلمه یا کلمات مد نظر ما)
2 - هر قسمت از کلمات و جملاتش رو که خواستیم بتونیم با rolover موس هایلایتش کنیم.
ممنون میشم اگه کمک کنید

[lord_viper]

هم memo و هم ritchedit میتونین با کمی کد نویسی این کارو انجام بدین البته برای هایلایت ritchedit بهتره

[siroosss]

با تشکر
فقط میشه راهنمایی بیشتر کنید
امکانش هست کدی که هر قسمت از نوشته memo رو که بخواهیم، تبدیل به باتن می کنه رو این جا قرار بدید؟
واقعا ممنون میشم

[lord_viper]

منظورتون combobox هست؟که تو پست 1 گفتین؟
اون combobox نیست بلکه یک popup menu هست که وقتی روی یک نقطه کلیک راست میکنین ظاهر میشه

[siroosss]

ببینید چه combobox و چه popup menue هر کدوم باشه خوبه
ولی الان مشکل من این هستش که می خوام هر قسمت از متن داخل memo رو که خواستم بتونم خاصیت باتن بهش بدم
یعنی با کلیک روی اون کمبوباکس یا popup menue باز بشه
واقعا خیلی لنگ این مورد هستم اگه درست بشه عالی میشه

[siroosss]

سلام مجدد
سرانجام من یه کد پیدا کردم که داخل Rich edit تکست رو به صورت لینک در آورده
حالا جناب lord_viper میشه خواهش کنم اگه امکانش هست کاری کنید به جای لینک سایت یا ایمیل،
یه نوشته معمولی ، مثل : max رو بشه به کلیک حساس کرد (مثلا با کلیک روی اون فرم ماکسی مایز بشه)

کد php:

unit Unit2;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs,ShellApi,RichEdit, StdCtrls, ComCtrls;

type
  TForm2 = class(TForm)
    RichEdit1: TRichEdit;
    RichEdit2: TRichEdit;
    procedure FormCreate(Sender: TObject);
  private
   procedure InitRichEditURLDetection(RE : TRichEdit);
    { Private declarations }
  public
    protected
    procedure WndProc(var Msg: TMessage); override;
    { Public declarations }
  end;

var
  Form2: TForm2;

implementation

{$R *.dfm}


procedure TForm2.InitRichEditURLDetection(RE: TRichEdit);
var
  mask: Word;
begin
  mask := SendMessage(RE.Handle, EM_GETEVENTMASK, 0, 0);
  SendMessage(RE.Handle, EM_SETEVENTMASK, 0, mask or ENM_LINK);
  SendMessage(RE.Handle, EM_AUTOURLDETECT, Integer(True), 0);
end;
 procedure TForm2.FormCreate(Sender: TObject);
var
  s: string;
begin
  InitRichEditURLDetection(RichEdit1);

  s:='Great Delphi tutorials and articles at ' +
     'http://www.delphi.about.com.' + #13#10 +
     'About Delphi Programming site!' + #13#10 +
     'Send an email to your Guide: mailto:delphi.guide@about.com';
  RichEdit1.Text := s;

  s:= 'http://www.delphi.about.com. ' +
      ' This Rich Edit does not recognize URLs!';
  RichEdit2.Text := s

end;
procedure TForm2.WndProc(var Msg: TMessage);
var
  p: TENLink;
  sURL: string;
  CE : TRichEdit;
begin
if (Msg.Msg = WM_NOTIFY) then
begin
  if (PNMHDR(Msg.lParam).code = EN_LINK) then
  begin
   p := TENLink(Pointer(TWMNotify(Msg).NMHdr)^);
   if (p.Msg = WM_LBUTTONDOWN) then
   begin
    try
     CE := TRichEdit(Form2.ActiveControl);
     SendMessage(CE.Handle, EM_EXSETSEL, 0, Longint(@(p.chrg)));
     sURL := CE.SelText;
     ShellExecute(Handle, 'open', PChar(sURL), 0, 0, SW_SHOWNORMAL);
    except
    end;
   end;
  end;
end;

inherited;
end; (* TForm2.WndProc *)
end.