Delphi에서 RichEdit 구성 요소에 선을 추가하는 방법은 무엇입니까?

-2

delphi 2010을 사용하여 가입 양식을 만들었습니다. 이메일을 사용하여 기존 사용자 가입을 허용하지 않으려했습니다. 따라서 이미 등록 된 전자 메일에 가입하면 pass_reset 양식 대화 상자가 나타납니다.Delphi에서 RichEdit 구성 요소에 선을 추가하는 방법은 무엇입니까?

uses 
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, 
Dialogs, StdCtrls, GIFImg, ExtCtrls, pngimage, ComCtrls, FMTBcd, WideStrings, 
DBXMySql, DB, SqlExpr, MessageDigest_5, Types, ShellAPI, IdBaseComponent, 
IdComponent, IdIOHandler, IdIOHandlerSocket, IdIOHandlerStack, IdSSL, 
IdSSLOpenSSL, IdTCPConnection, IdTCPClient, IdExplicitTLSClientServerBase, 
IdMessageClient, IdSMTPBase, IdSMTP, IdMessage,**pass_reset;** 

{Checking wether email exist} 

SQLQuery2.SQL.Text := 'SELECT * from registered where email="'+email+'"'; 
SQLQuery2.Open; 
count := SQLQuery2.RecordCount; 

{if email exit bfore display message already exist} 

if (count>0) then 
begin 
PassReset.Show; 
end;

죄송 [email protected]는 우리의 데이터베이스에 이미있는 pass_reset 양식 (사용 TRichEdit는 구성 요소)

뭔가

procedure TPassReset.Rich_customExistBeforeChange(Sender: TObject); 
begin 
email := form_signup.ed_email.text; 
RichEdit1.Append('Hello "'+email+'" it seem that you''re already registered with us'); 
end;

그러나 그것을

등에서 작성하는 방법 작동하지 않았다.

출처

2011-12-21 Rafik Bari

당신은'RichEdit.Lines.Add ('부자 서식 내 메시지')으로 이동하는 방법을 모른다 의미,' –

그것은 RichEdit.Lines.Add하지 RichEdit1.Append가 있습니다. RichEdit 컨트롤이 아닌 Lines 속성을 수정하고 있습니다. –

일부 버튼의 Click 이벤트로 사용할 때 제대로 작동하지만 FormCreate로 시도했지만 양식 작성시 자동 변경이 코드 행을 넣을 수는 있지만 작동하지 않음 –

이게 원하는가요?

RichEdit1.Lines.Add('sorry [email protected] is already in our database');

TRichEdit RichEdit1에 한 줄을 추가합니다.

코드 PassReset.Show을 사용한다고 가정하면 같은 장소에서 TRichEdit을 수정할 수 있습니다.

if (count>0) then 
begin 
    PassReset.Show; 
    PassReset.RichEdit1.Lines.Add('sorry [email protected] is in use'); 
end;

출처

2011-12-21 14:32:56

Delphi에서 RichEdit 구성 요소에 선을 추가하는 방법은 무엇입니까?

답변

관련 문제