مشکل عجیب:نمایش داده نشدن hint وقتی پرنت پنجره رو تغییر میدم
چند وقت پیش در مورد نمایش یه پنجره روی پنجره دیگه و مشکل نامرئی شدن فرم بالایی سوال کرد بودم.آخرش دیدم با SetParent مشکل حل شد.حالا متوجه یه مشکل دیگه شدم.با این کار وقتی فرم بالایی غیر فعال هست یعنی فرم پایین فعاله hint فرم بالایی با رفتن ماوس روی دکمه هاش نمایش داده میشه اما وقتی خود فرم بالایی فعال باشه نمایش داده نمیشه.
کسی میتونه کمک کنه؟
یه سوال هم از مسئولین دارم نمی دونستم کجا باید بپرسم:
از کجای سایت میشه اسم کاربریم رو عوض کنم؟
نقل قول: مشکل عجیب:نمایش داده نشدن hint وقتی پرنت پنجره رو تغییر میدم
بالاخره از یه Panel برای شبیه سازی hint استفاده کردم به همراه تنظیم MouseMove گروهی:
procedure TNetGifForm.BigFootCheckMouseMove(Sender: TObject;
Shift: TShiftState; X, Y: Integer);
begin
//äãíÊæäãå ãÔ˜á Ñæ åäÇã ÝÚÇá ÈæÏä äÌÑå ÊÕæíÑ Íá ˜äå
{sender:=TObject(WindowFromPoint(Point(Mouse.Curso rPos.X,Mouse.CursorPos.Y)));
Application.ActivateHint(Mouse.CursorPos);}
if NetGifForm.Active=false then
Exit;
//Hint ÑæÔí ÈÑÇí ÔÈíå ÓÇÒí
{*ÞáÇÈí äãí ãæäå Hint ÊÇ ÇäÊåÇí ÓãÊ ÑÇÓÊ äÌÑå ÑÝÊå ÌÇíí ÈÑÇí äãÇíÔ Panel1 æä*}
HintPanel.Caption:=TWinControl(Sender).Hint;
HintPanel.Left:=TWinControl(Sender).Left+TWinContr ol(Sender).Width;
HintPanel.Top:=TWinControl(Sender).Top+TWinControl (Sender).Height;
HintPanel.Width:=NetGifForm.Canvas.TextWidth(HintP anel.Caption)+10;
HintPanel.Color:=Application.HintColor;
HintPanel.Show;
end;
procedure TNetGifForm.FormMouseMove(Sender: TObject; Shift: TShiftState; X,
Y: Integer);
begin
HintPanel.Visible:=false;
end;