文字方塊之對齊方式 |
|
答題得分者是：xiaoning79627
|
|
Paicaso
中階會員   發表：140 回覆：124 積分：52 註冊：2002-09-04 發送簡訊給我 |
|
|
william
版主  發表：66 回覆：2535 積分：3048 註冊：2002-07-11 發送簡訊給我 |
|
|
xiaoning79627
初階會員 發表：46 回覆：60 積分：26 註冊：2002-11-10 發送簡訊給我 |
unit Unit1; interface uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, StdCtrls; type
TEdit=class(StdCtrls.TEdit) //如果不常用可用JUSTMADE提供簡單承繼元件的另類方法。http://delphi.ktop.com.tw/topic.php?TOPIC_ID=33755
private
FTextAlign: TAlignment;
procedure SetTextAlign(const Value: TAlignment);
protected
procedure CreateParams(var Params: TCreateParams); override;
published
property TextAlign: TAlignment read FTextAlign write SetTextAlign default taLeftJustify;
end; TForm1 = class(TForm)
Edit1: TEdit;
Button1: TButton;
procedure Button1Click(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end; var
Form1: TForm1; implementation {$R *.dfm} { TEdit } procedure TEdit.CreateParams(var Params: TCreateParams);
const
Alignments: array [TAlignment] of DWord = (ES_LEFT, ES_RIGHT, ES_CENTER);
begin
inherited CreateParams(Params);
with Params do
Style := Params.Style or ES_MULTILINE or Alignments[FTextAlign];
end; procedure TEdit.SetTextAlign(const Value: TAlignment);
begin
FTextAlign := Value;
RecreateWnd; end; procedure TForm1.Button1Click(Sender: TObject);
Var i:Word;
begin
i:=ORD(Edit1.TextAlign) 1;
i:=i MOD 3;
Edit1.TextAlign:=TAlignment(i); end; end. 参考看看。 努力，相信会做的更好！ 發表人 - xiaoning79627 於 2003/09/15 21:44:32
|
|
Paicaso
中階會員 發表：140 回覆：124 積分：52 註冊：2002-09-04 發送簡訊給我 |
|
|
xiaoning79627
初階會員 發表：46 回覆：60 積分：26 註冊：2002-11-10 發送簡訊給我 |
發表時間：2003-09-15 14:21:47
IP:210.64.xxx.xxx 未訂閱
系統時間：2024-06-02 16:24:02
聯絡我們 | Delphi K.Top討論版
| 本站聲明 |
|
1. 本論壇為無營利行為之開放平台，所有文章都是由網友自行張貼，如牽涉到法律糾紛一切與本站無關。 2. 假如網友發表之內容涉及侵權，而損及您的利益，請立即通知版主刪除。 3. 請勿批評中華民國元首及政府或批評各政黨，是藍是綠本站無權干涉，但這裡不是政治性論壇！ |