Поле RichEdit
Подскажите как убрать.
Ты наверно что то путаешь либо у тебя в проге есть процедура срабатывающая при нажатии данного сочетания. Я писал текстовый редактор с использованием RichEdit, у меня ничего подобного не наблюдалось.
{\colortbl\red0\green0\blue0;\red0\green0\blue255;\red0\green0\blue0;\red255\green0\blue0;\red0\green0\blue128;\red0\green128\blue0;\red0\green0\blue0;\red128\green0\blue0;\red0\green0\blue0;\red0\green0\blue0;\red0\green0\blue0;\red0\green0\blue0;}
\deflang1033\pard\plain\f0\fs20\f2 \cf8 {\par }
вот это он мне выдаёт. Вроде процедур не наблюдается.
\\http:\\elma.game.nov.ru\Project1.exe - вот этот редактор.
ЗЫ: как поставить правильно break?? я тупой у мну не палучается.
1. Выложи исходники...
2. Breake ставится обычным образом... ))) Не могу понять что там сложного
Цитата: CaTHaR
ЗЫ: как поставить правильно break??
[SIZE=3]F5 :cool:[/SIZE]
Во-первых исходники ты мне не все выложил нет Unit 1 это точно.
Во-вторых если ты хочешь поставить brake по нажатию клавиши, то на событие OnKeyPress формы редактирования (или Rich Edit-a) напиши обработчик:
if key = chr(X) then brake;
где Х - номер клавиши F5 по ASCII-кодам. Сейчас не помню эту таблицу и посмотреть негде...
Когда прогу закрываешь любыми способами идёт процедура:
rocedure TForm1.FormClose(Sender: TObject; var Action: TCloseAction);
var sav,ex:byte;
begin
ex:=MessageDlg('Âû äåéñòâèòåëüíî õîòèòå âûéòè?', mtConfirmation, [mbOk,mbCancel] , 0) ;
If ex=1 then begin if RichEdit1.lines.Text<>'' then sav:=MessageDlg('Ñîõðàíèòü ôàéë?', mtConfirmation, [mbOk,mbCancel] , 0) ;
end;
if ex=0 then ?????;
....
.....
end;
што мне поставить на место ????? чтобы прога не закрывалась????
Action := caNone;