استفاده از دكمه Help در فرم

[shervin farzin]

سلام مجدد
چطوري ميتونم از دكمه Help كه در كنار بقيه دكمه ها در بالاي فرم ظاهر ميشه استفاده
كنم ، در ضمن مي خواستم بدونم آيا واقعا در دلفي حداقل بايد حتما دكمه minimize , maximize
رو غير فعال كنم تا دكمه help رو ببينم يا راهي داره كه من بلد نيستم ؟ متشكرم .

[Hsimple11]

میتوانید با بررسی اینکه کلیک موس بر روی آن شده یا نه پروسیجری را فرا خوانی کنید مثال :


private
procedure wmNCLButtonDown(var Msg: TWMNCLButtonDown); message WM_NCLBUTTONDOWN;
procedure wmNCLButtonUp(var Msg: TWMNCLButtonUp); message WM_NCLBUTTONUP;
end;



procedure TForm1.wmNCLButtonDown(var Msg: TWMNCLButtonDown);
begin
if Msg.HitTest = HTHELP then
begin
Msg.Result := 0;
end
else
inherited;
end;

procedure TForm1.wmNCLButtonUp(var Msg: TWMNCLButtonUp);
begin
if Msg.HitTest = HTHELP then
begin
Msg.Result := 0;
ShowMessage('Salam');
end
else
inherited;
end;

[Hsimple11]

پروسیجر WMNCLButtonDown رویداد های مربوط به موس را میگیرد.

[shervin farzin]

از جوابت باز هم ممنونم Hsimple11
اما ميدوني چيه . من منظورم يه طرحي شبيه دكمه Help روي پنجره يكي از Connection هاي
اينترنتي كه توي ويندوز هست . اگه ديده باشي وقتي روي دكمه help كليك ميكني فقط ظاهر
mouse عوض ميشه ، ولي وقتي روي يكي از component هاي فرم كليك ميكني به جاي اجراء
كد هاي Onclick Event ، به صورت حبابي يه hint نمايش ميده . در ضمن اگه دقت كنين hint معمولي هر component در delphi بعد از چند ثانيه ميره ولي اين help تا وقتي كه دوباره كليك نكرده باشي نميره .
باز هم از توجهت ممنونم

[Hsimple11]

این یک Help Mode موقت است که بصورت Context-Sensitive Help می باشد یعنی با کلیک بر روی هر کنترل و هرجا Help مربوط به همان موضوع باز شود. کامپوننت ProHelp این کار را برایتان انجام میدهد.