exe)

var

p,t:integer;

s:string;

begin

p:=20000;

s:=formatfloat('##,##0',p); //s에 20,000으로 변환하고

//다시 s의 문자열 값을 t에 숫자값으로 바꾸어야 하는데

모르겠어요..........

일주일째 헤메고 있어요....

오늘은 서울에서 책도 사왔는데 거기에도 없어요...

꼭 부탁합니다.



end;

박홍석 wrote:

> 안녕하세요.

>

> 콤보박스를 펼쳐서 마우스로 아이템을 선택할려고 이동중일때

> 그 아이템의 내용을 힌트로 나타내고 싶습니다. 그 아이템의

> 바로 옆에....

>

> 어떤 방식을 이용해야 할까요?



홍석님 안녕하세요?

일전에 전철호님의 홈에서 퍼온 내용입니다.

보시고 도움되시길 바랍니다.



[팁]리스트 박스, 콤보박스일 경우 해당 아이템에 힌트를 사용 하는 방법

리스트 박스, 콤보박스는 Control에 대해서만 힌트를 나타낸다.

그런데 각각의 Item마다 다른 힌트를 나타내려면 어떻게 나타낼까 ?.



아주 간단한 방법을 사용하여 위의 문제를 해결해 보자.

일단 OmMouseMove Event에다

다음과 같이 기술한다.



TableTree는 리스트 박스로 간주한다.



if TableTree.Items.Count <= 0 then

System.Exit;

{$R-} // Range Check Error를 뺀다.

P.X := X;

P.Y := Y;

dw := SendMessage(TableTree.Handle,LB_ITEMFROMPOINT,0,MAKELPARAM(P.X,P.Y));

idx := LOWORD(dw);

if HIWORD(dw) = 1 then // 마우스가 리스트박스 아이템 위치에 없을때.

System.Exit;

Hint := TableTree.Items[idx];

{$R+}



그리고 나서 ShowHint를 True로 설정하면 해당 Item에 같을 경우

Item에 해당되는 값이 힌트에 나타날 것이다.



또한 해당 Item에 popup을 나타내는 경우도 아주 간단하게

해결할 수 있다.



OnMouseUp Event에다 다음과 같이 기술하면 된다.

var

P : TPoint;

idx: integer;

dw : DWORD;

begin

if TableTree.Items.Count <= 0 then

System.Exit;

if Button = mbRight then

begin

P.X := X;

P.Y := Y;

dw := SendMessage(TableTree.Handle,LB_ITEMFROMPOINT,

0,MAKELPARAM(P.X,P.Y));

idx := LOWORD(dw);

if HIWORD(dw) = 1 then // 리스트박스 아이템 위치에 없을때.

System.Exit;

TableTree.ItemIndex := idx;

if TableTree.ItemIndex = idx then

begin

P := TableTree.ClientToScreen(P);

Popup_Table.Popup(P.X,P.Y);

end;

end;



ComboBox나 TCheckListBox도 위와 같이 사용하면은

Item 각각의 힌트와 Popup윈도우를 사용할 수 있다.

조성윤 께서 말씀하시기를...

> exe)

> var

> p,t:integer;

> s:string;

> begin

> p:=20000;

> s:=formatfloat('##,##0',p); //s에 20,000으로 변환하고

> //다시 s의 문자열 값을 t에 숫자값으로 바꾸어야 하는데

> 모르겠어요..........

> 일주일째 헤메고 있어요....

> 오늘은 서울에서 책도 사왔는데 거기에도 없어요...

> 꼭 부탁합니다.

>

> end;



저도 똑같은 질문을 올렸는데 어떤 분이 도움을 주시더군요. 아래 해당함수입니다. 아마 그 분도 양해해 주시리라 생각하면서...

function SearchAndReplace(sSrc, sLookFor, sReplaceWith: string ): integer;

var

nPos,

nLenLookFor : integer;

begin

//문자열에서 제거하고자하는 문자위치를 찾는다.

nPos := Pos(sLookFor, sSrc);

//제거할문자가 있는 곳까지의 길이를 구한다.

nLenLookFor := Length(sLookFor);

while(nPos > 0)do

begin

//제거할 문자를 잘라내서 다시 붙인다

Delete( sSrc, nPos, nLenLookFor );

Insert( sReplaceWith, sSrc, nPos );

nPos := Pos( sLookFor, sSrc );

end;

Result := StrToInt(sSrc);

end;



사용법; edit1.text의 값 20,000에서 콤마를 제거하고자 하면

SearchAndReplace(edit1.text, ',' , '')--->결과값20000