After i clicked the choice (not double click) it directly calls the
procedure i wanted to do, and what i expected is it can only be called if
there is double click detected..... i really out of ideas on how to make it
possible :( can anyone help me here?

my e-mail:

DblClkTime: boolean;
OldClk: TPoint;

procedure TTopWindow.WMLButtonDown(var Msg: TMessage);
var P: TPoint;
    TheDC: HDC;
begin
  GetCursorPos(P);
  ScreenToClient(HWindow,P);
  if DblClkTime then
  begin
    if ((P.X < OldClk.X + GetSystemMetrics(sm_CXDoubleclk)) and
        (P.X > OldClk.X - GetSystemMetrics(sm_CxDoubleClk)) and
        (P.Y < OldClk.Y + GetSystemMetrics(sm_CYDoubleClk)) and
        (P.Y > OldClk.Y - GetSystemMetrics(sm_CYDoubleClk))) then
            WMLButtonDblClick;
    else
      DblClkTime := false;
  end
  else
  begin
    Settimer(HWindow,1,GetDoubleClickTime,nil);
    DblClkTime := true;
    OldClk := P;
  end;
end;

procedure TTopWindow.WMTimer(var Message: TMessage);

begin
  KillTimer(HWindow,1);
  DblClkTime := false
end;

    Rick

Simon Kho Hui Kian wrote in message <75554s$cr...@news5.jaring.my>...