PDA

View Full Version : سوال: مشکل عجیب:نمایش داده نشدن hint وقتی پرنت پنجره رو تغییر میدم



mbshareat
دوشنبه 06 خرداد 1398, 02:17 صبح
چند وقت پیش در مورد نمایش یه پنجره روی پنجره دیگه و مشکل نامرئی شدن فرم بالایی سوال کرد بودم.آخرش دیدم با SetParent مشکل حل شد.حالا متوجه یه مشکل دیگه شدم.با این کار وقتی فرم بالایی غیر فعال هست یعنی فرم پایین فعاله hint فرم بالایی با رفتن ماوس روی دکمه هاش نمایش داده میشه اما وقتی خود فرم بالایی فعال باشه نمایش داده نمیشه.
کسی میتونه کمک کنه؟

یه سوال هم از مسئولین دارم نمی دونستم کجا باید بپرسم:

از کجای سایت میشه اسم کاربریم رو عوض کنم؟

mbshareat
شنبه 08 تیر 1398, 13:14 عصر
بالاخره از یه 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;