00시00분00초부터 시간을 카운트할때 현재시간에서 시작시간을 빼서 경과시간을 계속해서 보여주는 timer를 만드려고 합니다.

경과시간이 24시간을 넘어 24시간10분,25시간,이런 식으로 계속 진행하려 하는데 00시00분00초로 되며 하루가 올라갑니다.

이 문제를 해결해 주시고 아울러 소스를 알려주시면 감사하겠습니다.

박홍석 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윈도우를 사용할 수 있다.