Сброс фокус Memo

← →
NickName (2003-06-12 13:56) [0]

Здравствуйте, уважаемый All.
Как запретить Memo получат фокус?
Заранее премного благодарен.

← →
Palladin (2003-06-12 14:04) [1]

Enabled:=false;

← →
NickName (2003-06-12 14:21) [2]

В таком случаи меняется стиль Memo, а такой не подходит

← →
Palladin (2003-06-12 14:24) [3]

зачем тебе это?

← →
NickName (2003-06-12 15:14) [4]

Хочу показать Memo с информацией, но мне не надо, чтобы ее могли фокусировать, чисто из соображений наглядности.

← →
Palladin (2003-06-12 15:35) [5]

сделай наследника от TCustomLable да и рисуй как Memo в OnPaint

← →
Lu Chan (2003-06-12 15:54) [6]

Если ты имешь ввиду фокус ввода, то попробуй следующее(всмысле поиграйся с внутреностью ActiveControl()):
unit Unit1;

interface

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

type
TForm1 = class(TForm)
Memo1: TMemo;
Button1: TButton;
CheckBox1: TCheckBox;
procedure FormCreate(Sender: TObject);
private
{ Private declarations }
procedure ActiveControl(Sender: TObject);
public
{ Public declarations }
end;

var
Form1: TForm1;

implementation

{$R *.dfm}

procedure TForm1.FormCreate(Sender: TObject);
begin
Screen.OnActiveControlChange := ActiveControl;
end;

procedure TForm1.ActiveControl(Sender: TObject);
begin
if Form1.Memo1.Focused then Form1.Button1.SetFocus;
end;

end.

← →
Lu Chan (2003-06-12 16:12) [7]

А если имеется ввиду вид как мнемо:
Размещаешь Panel на месте нужного Мемо, на ней Label. Его выравниваешь alClient, и задаешь цвета фона и шрифта как у Мемо.
А у Panel BorderStyle:=bsSingle.
Один в один мнемо или это еще не то?

← →
NickName (2003-06-12 16:43) [8]

Способ хороший, но есть одно но, Memo у меня не простое, а dxDBMemo. Конечно можно было бы и извратится, загружая сначала данные в dxDBMemo, а потом выгружать на Label, но понятное дело, что это есть очень нехорошо.

Сброс фокус Memo Найти похожие ветки