Скачать: CL | DM;

Глючит RichEdit1.Perform(EM_CHARFROMPOS,0,0)   Найти похожие ветки 

← →
Alx2 ©   (2002-09-06 14:54) [0]

У меня сабж вызывает 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.


---

← →
MBo ©   (2002-09-06 15:19) [1]

для richedit надо передавать указатель на TPoint
пример есть
http://delphi.mastak.ru/articles/dragndrop/index.html

---

← →
Alx2 ©   (2002-09-06 16:07) [2]

Спасибо, Борис. А то в хелпе ни слова не написали:(

---

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

Скачать: CL | DM;



Память: 0.45 MB
Время: 0.017 c