我有一個文本框數組Edit[1],Edit[2],Edit[3]怎麼得到當前的索引號呢？ |
|
答題得分者是：cashxin2002
|
|
tomc
一般會員   發表：41 回覆：35 積分：15 註冊：2003-07-27 發送簡訊給我 |
|
|
ha0009
版主   發表：16 回覆：507 積分：639 註冊：2002-03-16 發送簡訊給我 |
|
|
sos_admin
版主 發表：121 回覆：697 積分：768 註冊：2003-07-23 發送簡訊給我 |
tomc 兄：
delphi中没有您所说的文本框數組，但可以这样实现您的效果 unit Unit1; interface uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, StdCtrls; type
TForm1 = class(TForm)
procedure FormCreate(Sender: TObject);
private
procedure myclick(Sender: TObject);
{ Private declarations }
public
{ Public declarations }
end; var
Form1: TForm1;
edit:array[1..10] of tedit;//定义10个
implementation {$R *.dfm}
//公共的事件，取得索引值
procedure tform1.myclick(Sender: TObject);
begin
showmessage(copy((Sender as tedit).name,5,length((Sender as tedit).name)-4));
end; //创建
procedure TForm1.FormCreate(Sender: TObject);
var
i:integer;
begin
for i:=1 to 10 do
begin
edit[i]:=tedit.Create(form1);
edit[i].Name:='edit' inttostr(i);
edit[i].Top :=i*20;
edit[i].Parent :=form1;
edit[i].OnClick :=myclick;
edit[i].Visible :=true;
end;
end; end.
|
|
tomc
一般會員 發表：41 回覆：35 積分：15 註冊：2003-07-27 發送簡訊給我 |
感謝熱心幫助！
我是想在Edit控件得到焦點時自動全選文本框（文本框是一個數組）！用以下代碼，但是沒有作用！
procedure TForm1.EditOnEnter(sender:Tobject);
begin
if (Sender Is TEdit) then begin
begin
(Sender As TEdit).SelStart:=0;
(Sender As Tedit).SelLength:=length((Sender as tedit).Text);
(Sender As Tedit).Seltext:=(Sender as tedit).Text;
end;
end;
以上代碼好像沒有起到作用! 一顆小菜
------
交流.學習 |
|
ha0009
版主 發表：16 回覆：507 積分：639 註冊：2002-03-16 發送簡訊給我 |
|
|
cashxin2002
版主  發表：231 回覆：2555 積分：1937 註冊：2003-03-28 發送簡訊給我 |
引言: 感謝熱心幫助！ 我是想在Edit控件得到焦點時自動全選文本框（文本框是一個數組）！用以下代碼，但是沒有作用！ procedure TForm1.EditOnEnter(sender:Tobject); begin if (Sender Is TEdit) then begin begin (Sender As TEdit).SelStart:=0; (Sender As Tedit).SelLength:=length((Sender as tedit).Text); (Sender As Tedit).Seltext:=(Sender as tedit).Text; end; end; 以上代碼好像沒有起到作用! 一顆小菜您好﹒ 嗯﹐從你的問題來看﹐如果僅僅是為了做到Edit元件在取得焦點的時候﹐自動全選文本框的話（就是Edit中的內容吧）﹐可以參考其AutoSelect屬性﹐將其設為true﹐當使用Tab鍵使此Edit取得焦點時﹐就會將其內容全部選中了﹒ 如果要考慮當滑鼠點擊此Edit時﹐也要將其內容全部選中﹐即可在Edit元件的Onclick事件中下此Code﹕ Edit1.SelectAll;
------
忻晟 |
|
tomc
一般會員 發表：41 回覆：35 積分：15 註冊：2003-07-27 發送簡訊給我 |
|
|
cashxin2002
版主 發表：231 回覆：2555 積分：1937 註冊：2003-03-28 發送簡訊給我 |
發表時間：2003-08-07 10:27:27
IP:202.104.xxx.xxx 未訂閱
系統時間：2024-07-03 0:01:08
聯絡我們 | Delphi K.Top討論版
| 本站聲明 |
|
1. 本論壇為無營利行為之開放平台，所有文章都是由網友自行張貼，如牽涉到法律糾紛一切與本站無關。 2. 假如網友發表之內容涉及侵權，而損及您的利益，請立即通知版主刪除。 3. 請勿批評中華民國元首及政府或批評各政黨，是藍是綠本站無權干涉，但這裡不是政治性論壇！ |