Главная страница
    Top.Mail.Ru    Яндекс.Метрика
Форум: "WinAPI";
Текущий архив: 2002.01.24;
Скачать: [xml.tar.bz2];

Вниз

Вставка/замена в TEdit   Найти похожие ветки 

 
ZEE   (2001-09-16 03:33) [0]

Возможно ли осуществлять смену режимов вставки и замены в компонентах TEdit, если да - то как?


 
Никто   (2001-09-16 03:51) [1]

Клавиша "Insert". Один раз нажмешь - вставка, другой раз - замена.
Шутка.


 
Юрий Зотов   (2001-09-16 08:23) [2]

За абсолютную правильность не ручаюсь (писал "с ходу"), но должно работать.

type
TForm1 = class(TForm)
Edit1: TEdit;
procedure Edit1KeyDown(Sender: TObject; var Key: Word; Shift: TShiftState);
procedure Edit1KeyPress(Sender: TObject; var Key: Char);
private
FOwerwrite: boolean;
end;

procedure TForm1.Edit1KeyDown(Sender: TObject; var Key: Word; Shift: TShiftState);
begin
if (Shift = []) and (Key = VK_INSERT) then FOwerwrite := not FOwerwrite
end;

procedure TForm1.Edit1KeyPress(Sender: TObject; var Key: Char);
var
S: string;
OldPos: integer;
begin
with Edit1 do
if FOwerwrite and (Ord(Key) > 31) and (SelStart < Length(Text)) and (SelLength = 0) then
begin
S := Text;
OldPos := SelStart;
S[SelStart + 1] := Key;
Key := #0;
Text := S;
SelStart := OldPos + 1
end
end;


 
Юрий Зотов   (2001-09-16 09:09) [3]

Сразу не сообразил. Есть более простой вариант. Он лучше еще и тем, что здесь не возникает неувязка с OnChange, которая есть в предыдущем варианте (там при OnChange нарушено SelStart, что неправильно).

procedure TForm1.Edit1KeyPress(Sender: TObject; var Key: Char);
begin
with Edit1 do
if FOwerwrite and (Ord(Key) > 31) and (SelStart < Length(Text)) and (SelLength = 0) then SelLength := 1
end;

Остальное то же самое.


 
Olgerd   (2001-09-17 01:50) [4]

Вопрос может быть немного не по теме, но как в TRichEdit программно нажать Insert, что переключать режим вставки/замены?


 
Лариса   (2001-11-19 18:18) [5]

Используйте библиотеку dx.
TdxEdit без проблем поддерживает смену режимов.


 
LLL   (2001-11-23 20:01) [6]

А, что это за библиотека dx?
И где её можна глянуть?



Страницы: 1 вся ветка

Форум: "WinAPI";
Текущий архив: 2002.01.24;
Скачать: [xml.tar.bz2];

Наверх





Память: 0.56 MB
Время: 0.017 c
1-75627
Aspir
2002-01-05 16:09
2002.01.24
Использование DLL в delphi


14-75679
Андрей
2001-11-30 18:54
2002.01.24
Лицензия на Delphi


1-75623
Belov
2002-01-08 15:43
2002.01.24
Изменение размеров картинки


4-75719
ZEE
2001-09-16 03:33
2002.01.24
Вставка/замена в TEdit


14-75684
Dup
2001-11-27 10:25
2002.01.24
?





Afrikaans Albanian Arabic Armenian Azerbaijani Basque Belarusian Bulgarian Catalan Chinese (Simplified) Chinese (Traditional) Croatian Czech Danish Dutch English Estonian Filipino Finnish French
Galician Georgian German Greek Haitian Creole Hebrew Hindi Hungarian Icelandic Indonesian Irish Italian Japanese Korean Latvian Lithuanian Macedonian Malay Maltese Norwegian
Persian Polish Portuguese Romanian Russian Serbian Slovak Slovenian Spanish Swahili Swedish Thai Turkish Ukrainian Urdu Vietnamese Welsh Yiddish Bengali Bosnian
Cebuano Esperanto Gujarati Hausa Hmong Igbo Javanese Kannada Khmer Lao Latin Maori Marathi Mongolian Nepali Punjabi Somali Tamil Telugu Yoruba
Zulu
Английский Французский Немецкий Итальянский Португальский Русский Испанский