component required, can someone make this ?

[DelphiAaron]

wanted a smart cookie that can make a
TMemo and TDBMemo that can link to a seperate TScrollbox

Aaron Taylor
John Mutch Electronics

http://www.jme.com.au

 

[DelphiAaron]

i meant tscrollbar

Aaron Taylor
John Mutch Electronics

http://www.jme.com.au

 

[bledazemi]

I am curious why do you want the Memo to link to a separate scroll bar, TMemo and TDBMemo have their own scrollbars. Dont they?

 

[DelphiAaron]

yes but it would be good to be able to disable the memo and use the scroll bars still

ive looked into it but cant find where the scrollbar is created, updated ect.

if someone knows where thats done i maybe able to do the rest.

Aaron Taylor
John Mutch Electronics

http://www.jme.com.au

 

[BobbaFet]

Isn't setting the ReadOnly properties good enough aaronjme? They both have it.

BobbaFet

if not Programming = 'Severe Migraine' then
                       ShowMessage('Eureka!');

 

[DelphiAaron]

no, you can still enter the memo, highlight text ect...

Aaron Taylor
John Mutch Electronics

http://www.jme.com.au

 

[BobbaFet]

well, in that case you could put something like this in onMouseUp event of (DB-)Memo:

procedure TForm1.Memo1MouseUp(Sender: TObject; Button: TMouseButton;
Shift: TShiftState; X, Y: Integer);
begin
Memo1.SelLength := 0;
Button1.SetFocus;
end;

I'm assuming you do have something else on the form to set the focus to.

BobbaFet

if not Programming = 'Severe Migraine' then
                       ShowMessage('Eureka!');

 

[BobbaFet]

I've got another idea for you:

Perhaps you could use a TStaticText (it is on the Additional tab)?

BobbaFet

if not Programming = 'Severe Migraine' then
                       ShowMessage('Eureka!');