![]() |
|
|
|||||||
| Регистрация | << Правила форума >> | FAQ | Пользователи | Календарь | Поиск | Сообщения за сегодня | Все разделы прочитаны |
![]() |
|
|
Опции темы | Поиск в этой теме | Опции просмотра |
|
|
|
#1
|
|||
|
|||
|
Написал программу, да видимо неправильно, я выложил файл.. кто просвещёный посморите пожалуйста и подскажите в чем там проблема!
|
|
#2
|
|||
|
|||
|
пожалуйста посоветуйте что нибудь
|
|
#3
|
|||
|
|||
|
Ну вот не буду я качать что-то наваяное тобой.
конкретизируй вопрос с приведением только необходимых кусков кода прямо в форуме. |
|
#4
|
|||
|
|||
|
Текстовый редактор..
TFindDialog с ним проблема |
|
#5
|
|||
|
|||
|
Код:
procedure TfrmMain.mmiSearchClick(Sender: TObject);
begin
with FindDialog do
begin
FindText := Memo.SelText;
Position := Point(TfrmMain.Left, TfrmMain.Top+
Memo.Top + Memo.Height);
Options := Options + [frHideUpDown, frHideWholeWord];
Execute;
end;
end; |
|
#6
|
|||
|
|||
|
А какая ошибка-то?
|