モナーの *やさしい* Delphi質問スレ Ver.5
■ このスレッドは過去ログ倉庫に格納されています
0887デフォルトの名無しさん
NGNGtype TMyEdit= class(TMemo)
private
procedure CreateParams(var Params: TCreateParams);override;
end;
procedure TMyEdit.CreateParams(var Params: TCreateParams);
begin
inherited CreateParams(Params);
with Params do
begin
Style := Style and (not ES_MULTILINE);
end;
end;
■ このスレッドは過去ログ倉庫に格納されています