سلام بر دوستان<br>امیدوارم سالم و سر حال باشید<br>من در برنامه خودم که کار متنی انجام میده از کلیدهای ترکیبی زیادی استفاده می کنم مثلا Alt+Down . وقتی کلید Alt رو فشار میدیم منوی نواز عنوان پنجره فعال میشه. البته باید کلید پایین رو فشار بدیم که این منو نمایش داده بشه.<br>محیط متنی که دارم یک لیست باکس هست که تبدیل به ویرایشگر شده.فرض کنید چنین کدی داریم:
procedure TForm1.ListBox1KeyDown(Sender: TObject; var Key: Word;

  Shift: TShiftState);

begin

  if Key=vk_Down then

    ShowMessage('Key Down !');

end;

وقتی کلید جهت پایین رو میزنیم یک پیغام میده. اما اگر کلید Alt رو قبلش زده باشیم، وقتی که کلید جهت پایین رو بزنیم، منوی نوار عنوان پنجره باز میشه.من میخوام کلا این منو رو در برنامه نبینم.Form.KeyPreview رو True کردم و این کد رو نوشتم اما فایده نداشت:
procedure TForm1.FormKeyUp(Sender: TObject; var Key: Word;

  Shift: TShiftState);

begin

  If (Shift=[ssAlt]) and (Key=0) then

    Shift:=[];

end;

اگر بخوام گزینه های BorderIcons رو غیر فعال کنم هم وار عنوان بدون دکمه بستن و مینیمایز میشه.<br>برای رفع بوق زدن چنین کدی دارم اما دیگه بیشتر بلد نیستم:
procedure TFileBrowserForm.WMMenuChar(var MessageRec: TWMMenuChar);

begin

  inherited;

  MessageRec.Result := MakeLong(0, 1);

end;

اگر دوستان نظری دارند بگند. میشه گفت برام مهمه.