안녕하세요

application을 개발하다 문제가 있어 이렇게 다시 질문합니다.

제목과 같이 일정시간 동안 입력이 없으면 화면보호기역할을 하는

화면을 생성해서 보여주려고 하는데요

윈도우의 alt+tab 키의 기능이나 taskbar를 막아보려고 했지만 역부족을

실감하고 이렇게 도움을 청합니다.



고수님들의 도움을 기대합니다.

즐거운 코딩되세요....*^^*

이한나(소라동생) 께서 말씀하시기를...

> 리치에디터에서 콜럼값과 라인값을 리턴받아 그에 해당하는 문자의 폰트 색깔을 바꾸고 싶은데요.

> 두사람이 머리를 맞대도 잘않되네요.

> 혹 아시는분 연락좀 주세요.



안녕하세요 김영대입니다

아래 예제를 참고하세요



// 아래 예제는 2행의 5글자의 크기를 16으로 바꾼다



unit Unit1;



interface



uses

Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,

StdCtrls, Spin, ComCtrls;



type

TForm1 = class(TForm)

RichEdit1: TRichEdit;

Button1: TButton;

procedure Button1Click(Sender: TObject);

private

{ Private declarations }

public

{ Public declarations }

end;



var

Form1: TForm1;



implementation

{$R *.DFM}



procedure TForm1.Button1Click(Sender: TObject);

begin

with RichEdit1 do

begin

SelStart := Perform(em_LineIndex, 2, 0);

SelLength := 5;

SetFocus;



// TTextAttributes 의 프로퍼티

// CharSet

// Color

// ConsistentAttributes

// Height

// Name

// Pitch

// Protected

// Size

// Style

SelAttributes.Size := 16;

end;

end;



end.

아래 작업전환을 막는것이 있습니다.

이 코드는 나이렉스의 팁 게시판에서 가져왔습니다.



var

Form1: TForm1;

old: Pointer;



implementation



{$R *.DFM}



procedure TForm1.FormCreate(Sender: TObject);

begin

SystemParametersInfo(97, integer(true), Old, 0);

end;



procedure TForm1.FormDestroy(Sender: TObject);

begin

SystemParametersInfo(97, integer(false), Old, 0);

end;





김영해 wrote:

> 안녕하세요

> application을 개발하다 문제가 있어 이렇게 다시 질문합니다.

> 제목과 같이 일정시간 동안 입력이 없으면 화면보호기역할을 하는

> 화면을 생성해서 보여주려고 하는데요

> 윈도우의 alt+tab 키의 기능이나 taskbar를 막아보려고 했지만 역부족을

> 실감하고 이렇게 도움을 청합니다.

>

> 고수님들의 도움을 기대합니다.

> 즐거운 코딩되세요....*^^*

김영대 께서 말씀하시기를...

> 이한나(소라동생) 께서 말씀하시기를...

> > 리치에디터에서 콜럼값과 라인값을 리턴받아 그에 해당하는 문자의 폰트 색깔을 바꾸고 싶은데요.

> > 두사람이 머리를 맞대도 잘않되네요.

> > 혹 아시는분 연락좀 주세요.

>

> 안녕하세요 김영대입니다

> 아래 예제를 참고하세요

>

> // 아래 예제는 2행의 5글자의 크기를 16으로 바꾼다

>

> unit Unit1;

>

> interface

>

> uses

> Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,

> StdCtrls, Spin, ComCtrls;

>

> type

> TForm1 = class(TForm)

> RichEdit1: TRichEdit;

> Button1: TButton;

> procedure Button1Click(Sender: TObject);

> private

> { Private declarations }

> public

> { Public declarations }

> end;

>

> var

> Form1: TForm1;

>

> implementation

> {$R *.DFM}

>

> procedure TForm1.Button1Click(Sender: TObject);

> begin

> with RichEdit1 do

> begin

> SelStart := Perform(em_LineIndex, 2, 0);

> SelLength := 5;

> SetFocus;

>

> // TTextAttributes 의 프로퍼티

> // CharSet

> // Color

> // ConsistentAttributes

> // Height

> // Name

> // Pitch

> // Protected

> // Size

> // Style

> SelAttributes.Size := 16;

> end;

> end;

>

> end.

>

고맙습니다 김영대님..눈물이 앞을 가려서 잠을 이룰수가 없내요.

리치에디터에서 가능해서 썼습니다.

그런데 메모장에서는 selattributes 가 없어서 않되는데 어떻게 해야 되지요?

물어서 물어서 서울까지 온것 같은데요.왜냐면 메모에서는 클립보드가 지원이 되는지라 쓰고 싶군요.

아님 리치에디터에서 클립보드를 사용할수 있나요.

감사합니다.이정욱님

많은 도움이 되었습니다.