memo1でscrollを一時的に使用できなくしたいのですが？？ (ID:49816)

名前

ホームページ(ブログ、Twitterなど)のURL (省略可)

本文 > 文字が薄くなる点を子供がどう言うか心配ですが、 次のコードを使えば文字が薄くならないで、Memoコンポーネントの 操作可能 or 不可を実現できます。 var Status : Integer; begin // Memo1を操作不能 Status := GetWindowLong( Memo1.Handle, GWL_STYLE ); SetWindowLong( Memo1.Handle, GWL_STYLE, Status or WS_DISABLED ); // Memoコンポーネントの処理・・・ // Memo1を操作可能 SetWindowLong( Memo1.Handle, GWL_STYLE, Status and Not WS_DISABLED ); end;