![]() |
| ||
|
|
Новости |
Поиск |
FAQ |
Статьи |
Книги |
Новости VCL
| | Форумы ЧАТ |
Орешник |
|
| |||
| |||
« предыдущая ветвь | форум | следующая ветвь »
Глючит RichEdit1.Perform(EM_CHARFROMPOS,0,0) [D5, D6, Win2k]
Alx2 © (2002-09-06 14:54:00)У меня сабж вызывает AV и в D5 и в D6.
unit Unit1;
interface
uses
Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
StdCtrls, ComCtrls;
type
TForm1 = class(TForm)
RichEdit1: TRichEdit;
Button1: TButton;
procedure Button1Click(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;
var
Form1: TForm1;
implementation
{$R *.DFM}
procedure TForm1.Button1Click(Sender: TObject);
begin
RichEdit1.Perform(EM_CHARFROMPOS,0,0); // Вот тут и нарываюсь AV в riched20.dll. Интересно, я один такой? :)
end;
end.
Alx2 (2002-09-06 16:07:00) [1]Спасибо, Борис. А то в хелпе ни слова не написали:(
MBo (2002-09-06 15:19:00) [2]для richedit надо передавать указатель на TPoint
пример есть
http://delphi.mastak.ru/articles/dragndrop/index.html