Q&A

  • Edit에서 정렬하는법/Outlook Express 호출하는 법
이딴게 질문이 될지 모르겠네요. 일단은 올려봅니다.



1. Edit Component

문자열은 왜 정렬할 수가 없죠? Edit의 속성중엔 Edit Component자체를 윈도우화면상에서 어떻게 정렬하고 하는 건 나오지만 그안의 문자들을 가운데나 오른쪽으로 정렬하는 방법같은 건 안나오네요. 이런건 기본아닌가요? 이런것도 안된다면 정말 델파이에 대한 실망이 클것 같은데요...



2. Outlook Express 호출하기

메일보내기 버튼을 클릭하면 Outlook Express를 호출하고 당연히 메일주소정보도 넘겨줘야겠죠. 분명히 어딘가에 있을텐데 못찾겠네요. 워낙 성질급한 놈이라 무대뽀로 올려봅니다.



부탁드립니다.



2  COMMENTS
  • Profile
    김일영 2000.11.25 15:10
    앞으로는 무대뽀가 용납되지 않습니다.

    그리고 내용이 다른 것은 각각 나누어 올리시는 것이 본인께도 더 도움이 될 것입니다.

    물론 검색은 답을 찾는 가장 효과적인 방법입니다.

  • Profile
    Mr.Q 2000.11.25 15:12
    공병우 wrote:

    > 이딴게 질문이 될지 모르겠네요. 일단은 올려봅니다.

    >

    > 1. Edit Component

    > 문자열은 왜 정렬할 수가 없죠? Edit의 속성중엔 Edit Component자체를 윈도우화면상에서 어떻게 정렬하고 하는 건 나오지만 그안의 문자들을 가운데나 오른쪽으로 정렬하는 방법같은 건 안나오네요. 이런건 기본아닌가요? 이런것도 안된다면 정말 델파이에 대한 실망이 클것 같은데요...

    >



    TEdit속성중에는 Alignment가 없네요.

    이렇게 하면.. 오른쪽, 가운데정렬이 되긴합니다.



    //최용일님이 갈카주신 소스



    type

    TRightEdit = class(TEdit)

    protected

    procedure CreateParams(var Params: TCreateParams ); override;

    end;



    var

    Form1: TForm1;

    RightEdit: TRightEdit;



    implementation



    {$R *.DFM}

    var

    i:integer;



    procedure TRightEdit.CreateParams(var Params: TCreateParams);

    begin

    inherited;

    //Params.Style:=Params.Style or ES_CENTER or ES_WANTRETURN; //가운데정렬

    Params.Style:=Params.Style or ES_RIGHT or ES_WANTRETURN; //오른쪽정렬

    end;



    procedure TForm1.Button1Click(Sender: TObject);

    begin

    RightEdit:=TRightEdit.Create(Self);

    InsertControl(RightEdit);

    RightEdit.Top:=10+i;

    RightEdit.Left:=100;

    RightEdit.Width:=150;

    RightEdit.Font.Name:='굴림';

    RightEdit.Font.size:=10;

    RightEdit.SetFocus;

    RightEdit.Text:='오른쪽 정렬 에디트';



    i:=i+20;

    end;



    procedure TForm1.Button2Click(Sender: TObject);

    begin

    //RightEdit.Destroy;

    FreeAndNil(RightEdit);

    end;



    end.



    > 2. Outlook Express 호출하기

    > 메일보내기 버튼을 클릭하면 Outlook Express를 호출하고 당연히 메일주소정보도 넘겨줘야겠죠. 분명히 어딘가에 있을텐데 못찾겠네요. 워낙 성질급한 놈이라 무대뽀로 올려봅니다.

    >



    var

    hURL: string;

    begin

    hURL := 'MailTo:aaa@bbb.ccc';

    ShellExecute(Handle, 'open', PChar(hURL), nil, nil, SW_NORMAL);

    end;





    > 부탁드립니다.

    >