Главная страница
Top.Mail.Ru    Яндекс.Метрика
Текущий архив: 2012.01.15;
Скачать: CL | DM;

Вниз

Помогите найти ошибку в коде   Найти похожие ветки 

 
Elz   (2008-09-20 16:03) [0]

Помогите найти ошибку:

procedure TForm1.DBMemo1KeyPress(Sender: TObject; var Key: Char);
var
cRect: TRect;
bm: TBitmap;
begin

if dbmemo1.CaretPos.Y=15 then - если курсор будет на 15 строчке

begin
Windows.GetClientRect(Memo1.Handle, cRect);
bm := TBitmap.Create;
bm.Width := cRect.Right;
bm.Height := cRect.Bottom;
bm.Canvas.Font := Memo1.Font;
if bm.Canvas.TextWidth(memo1.Text + Key) > CRect.Right-1 then
Key := #0;
end;
bm.free;
end;
end;

я хочу сделать ограничение ввода текста на 15 строчке, но одна буква всеравно залазить на слелующую; а если убрать if dbmemo1.CaretPos.Y=15 then тогда все нормально.


 
{RASkov} ©   (2008-09-20 17:04) [1]

> [0] Elz   (20.09.08 16:03)

Во первых: форматирование.... нифика ничего не понятно, так как не видно кода... И один end лишний вроде...
Во вторых: все равно ничего не понятно :) Какое ограничение хочешь сделать и при чем тут Битмап?


 
Vlad Oshin ©   (2008-09-22 09:23) [2]

procedure TForm1.DBMemo1KeyDown(Sender: TObject; var Key: Word;
 Shift: TShiftState);
begin
 if dbmemo1.Lines.Count>14 then
 begin
   Key:=0;
   exit;
 end;
end;



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

Текущий архив: 2012.01.15;
Скачать: CL | DM;

Наверх




Память: 0.47 MB
Время: 0.009 c
6-1218309025
Doc.X
2008-08-09 23:10
2012.01.15
Регестарция в WordPress


15-1316281812
Pit
2011-09-17 21:50
2012.01.15
Сохранение обновлений с Windows Update


15-1316494673
xayam
2011-09-20 08:57
2012.01.15
АНТИВИРУСЫ НА ВОЙНЕ


15-1314770110
Омлет
2011-08-31 09:55
2012.01.15
RSS для DelphiMaster


15-1317241802
Юрий
2011-09-29 00:30
2012.01.15
С днем рождения ! 29 сентября 2011 четверг