Verständnisfrage zu Messages, TRichEdit u. Handles
Hallo zusammen,
ich probiere gerade das Beispiel von den Schweizern aus. Funktioniert auch soweit so gut, wenn ich das RichEdit direkt auf die Form lege. Habe ich jetzt ein Panel auf der Form, auf dem Panel ein PageControl und auf dem PageControl das RichEdit funktioniert das Beispiel auf einmal nichtmehr. Warum ? Der gesamte Quelltext aus dem Beispiel :
Delphi-Quellcode:
unit Unit15;
interface uses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, ShellAPI, StdCtrls, ComCtrls, RichEdit, ExtCtrls; type TForm15 = class(TForm) RichEdit1: TRichEdit; procedure FormCreate(Sender: TObject); private { Private declarations } protected procedure WndProc(var Message: TMessage); override; public { Public declarations } end; var Form15: TForm15; implementation {$R *.dfm} procedure TForm15.FormCreate(Sender: TObject); var mask: Word; begin mask := SendMessage(Handle, EM_GETEVENTMASK, 0, 0); SendMessage(RichEdit1.Handle, EM_SETEVENTMASK, 0, mask or ENM_LINK); SendMessage(RichEdit1.Handle, EM_AUTOURLDETECT, Integer(True), 0); RichEdit1.Text := 'SwissDelphiCenter.com: '#13#10 + ' Site is located at www.SwissDelphiCenter.com'; end; procedure TForm15.WndProc(var Message: TMessage); var p: TENLink; strURL: string; begin if (Message.Msg = WM_NOTIFY) then begin if (PNMHDR(Message.lParam).code = EN_LINK) then begin p := TENLink(Pointer(TWMNotify(Message).NMHdr)^); if (p.Msg = WM_LBUTTONDOWN) then begin SendMessage(RichEdit1.Handle, EM_EXSETSEL, 0, Longint(@(p.chrg))); strURL := RichEdit1.SelText; ShellExecute(Handle, 'open', PChar(strURL), 0, 0, SW_SHOWNORMAL); end end end; inherited; end; end. |
Re: Verständnisfrage zu Messages, TRichEdit u. Handles
Ich denke die WM_Notify findest du immer im PArent-Window. Und das ist jetzt nicht mehr die Form sondern dein PageControl.
|
Re: Verständnisfrage zu Messages, TRichEdit u. Handles
Ich habe bis jetzt immer gedacht, dass die Messages unabhängig von den Controls sind oder sehe ich das falsch ?
|
Re: Verständnisfrage zu Messages, TRichEdit u. Handles
Ja, das siehst du falsch. Jedes Control hat seine eigene WndPRoc. In der kommen alles Messages. Der Unterschied in der VCL ist noch das einige Controls direkt Windows/Fenster sind (alle von TWinControl abgeleiteten). Die bekommen die Messages direkt von Windows und generieren u.U. eigene Messages an die anderen Controls (z.B. Label, Image,...).
|
Re: Verständnisfrage zu Messages, TRichEdit u. Handles
Zitat:
Edit: Beispiel : TRichEdit-->TCustomRichEdit-->TCustomMemo-->TCustomEdit-->TWinControl |
Alle Zeitangaben in WEZ +1. Es ist jetzt 07:40 Uhr. |
Powered by vBulletin® Copyright ©2000 - 2024, Jelsoft Enterprises Ltd.
LinkBacks Enabled by vBSEO © 2011, Crawlability, Inc.
Delphi-PRAXiS (c) 2002 - 2023 by Daniel R. Wolf, 2024 by Thomas Breitkreuz