Компонент TReplaceDialogформує стандартне діалогове вікно пошуку і заміни, показане на малюнку 5.
Малюнок 5 – Діалогове вікно пошуку і заміни
Компонент TReplaceDialog підтримує всі можливості TFindDialog. Властивість ReplaceText містить текст, який прикладна програма використовує як заміни для тексту, визначеного в FindText.
Подія OnReplace генерується за допомогою клацання на кнопці Замінити або Замінити все. Властивість Options дозволяє вибрати один з двох типів заміни.
Приклад вставки тексту в Список 1
with ListBox1 do
Case ComboBox1.ItemIndex of
0 : begin // у початок списку
Items.Insert(0,Edit1.Text);
end;
1 : begin // у кінець списку
Items.Add(Edit1.Text);
end;
2 : begin // перед поточною рядком
if ItemIndex<0 then ItemIndex:=0; // Якщо //ніякий рядок не виділений
Items.Insert(ItemIndex,Edit1.Text);
end;
3 : begin // після поточного рядка
if ItemIndex<0 then ItemIndex:=0; // Якщо // ніякий рядок не виділений