سلام
دوستان چطور مي تونم از چشمك زدن كرزر در اديت باكس جلوگيري كنم .
اصلا خط عمودي كرزر كه در محيط هاي اديت نمايش داده مي شه مي خوام نمايش داده نشه
ممنون
سلام
دوستان چطور مي تونم از چشمك زدن كرزر در اديت باكس جلوگيري كنم .
اصلا خط عمودي كرزر كه در محيط هاي اديت نمايش داده مي شه مي خوام نمايش داده نشه
ممنون
یک کد API براش هست ولی یادم نمیاد.
یک راه دیگه اینه که خاصیت Enable را False کنید و روی OnKeyPress کد زیر را بنویسید :
البته شاید این کد کامل درست نباشه چون چکش نکردم و تندتند همین الان نوشتمش ولی امیدوارم منظورم رو گرفته باشی.کد:edit1.text := edit1.text + key;
سلام
مباح جون من منظورت رو کامل گرفتم. اما اصلآ بدرد بخور نیست.
کد Api آماده داره. که الآن یادم نمیاد اگر پیداش کردم میزارم.
سلامنقل قول:
براي مخفي كردن كرزر يا در واقع Caret ميتونيد از اين كد استفاده كنيد :
کد:const
UM_HIDECARET = WM_USER + 101;
type
TUMHideCaret = packed record
msg: Cardinal;
control: TWinControl;
end;
کد:private
{ Private declarations }
procedure UMHideCaret(var msg: TUMHideCaret); message UM_HIDECARET;
کد:procedure TForm1.UMHideCaret(var msg: TUMHideCaret);
begin
HideCaret(msg.control.Handle);
end;
براي كنترلي مانند Memo هم ميتوانيد استفاده كنيد.کد:procedure TForm1.Edit1Enter(Sender: TObject);
begin
PostMessage(handle, UM_HIDECARET, wparam(sender), 0);
end;