Wolfgang Chien's Homepage | Delphi學習筆記 - 問答篇 |
如何才能產生一個只有一行的Memo或RichEdit ? (不是Edit)
沒記錯的話, Memo 與 Edit 都是 Windows 的 Edit Control, 差別只在 ES_MULTILINE 的有無而已, 所以, 從 pure SDK 的角度來看, 都是edit.
剛才大概試了一下, 可以這麼作 --
unit TestMemo; interface uses Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs, StdCtrls; type TOneLineMemo = class(TMemo) private { Private declarations } protected { Protected declarations } procedure CreateParams(var Params: TCreateParams); override; public { Public declarations } published { Published declarations } end; procedure Register; implementation procedure Register; begin RegisterComponents('Samples', [TOneLineMemo]); end; procedure TOneLineMemo.CreateParams(var Params: TCreateParams); begin inherited CreateParams(Params); Params.Style := Params.Style or longint(ES_AUTOHSCROLL) and not ES_MULTILINE; end; end.
首頁 | 學習筆記 | 主題公園 | 軟體下載 | 關於本站 | 討論信群 | 相約下次 |