Вниз
Скачать: CL | DM;

Сброс фокус 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, но понятное дело, что это есть очень нехорошо.



Страницы: 1 вся ветка

Скачать: CL | DM;



Память: 0.46 MB
Время: 0.014 c
14-84552
Саня
2003-06-07 14:17
2003.06.26
Где взять навороченый конвертор всяких баз.


4-84826
Aleksandr
2003-04-23 12:20
2003.06.26
Как MessageBox задать кнопки со своим текстом?


1-84232
Кен
2003-06-10 03:48
2003.06.26
Focus . Как узнать где он в данный момент находится ?


14-84685
passlight
2003-05-23 09:56
2003.06.26
---|Ветка была без названия|---


11-84052
Юзер
2002-10-09 23:22
2003.06.26
Что вы думаете о компоненте




   Наверх