如何由某個事件觸發其它事件 |
|
|
|
cocodi
一般會員   發表：21 回覆：65 積分：17 註冊：2002-06-27 發送簡訊給我 |
請問我若想透過其它event(非是edit1KeyPress)給 edit1.text 一個值,並且觸發 edit1Keypress,如下,該如何做,Compile 一直有問題,請問 倒數第三行 Edit1KeyPress(sender,#13); 後面的參數該如何給....?????,謝謝 unit Unit1; interface uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, StdCtrls; type
TForm1 = class(TForm)
Edit1: TEdit;
Button1: TButton;
procedure Edit1KeyPress(Sender: TObject; var Key: Char);
procedure Button1Click(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end; var
Form1: TForm1; implementation {$R *.dfm} procedure TForm1.Edit1KeyPress(Sender: TObject; var Key: Char);
begin
if key=#13 then
ShowMessage('You last-press is Enter'); end; procedure TForm1.Button1Click(Sender: TObject);
begin
Edit1.Text:='this is a test' ;
Edit1KeyPress(sender,#13);
end; end.
|
|
領航天使
站長   發表：12216 回覆：4186 積分：4084 註冊：2001-07-25 發送簡訊給我 |
請問我若想透過其它event(非是edit1KeyPress)給 edit1.text 一個值,並且觸發 edit1Keypress,如下,該如何做,Compile 一直有問題,請問 倒數第三行 Edit1KeyPress(sender,#13); 後面的參數該如何給....?????,謝謝 unit Unit1; interface uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, StdCtrls; type
TForm1 = class(TForm)
Edit1: TEdit;
Button1: TButton;
procedure Edit1KeyPress(Sender: TObject; var Key: Char);
procedure Button1Click(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end; var
Form1: TForm1; implementation {$R *.dfm} procedure TForm1.Edit1KeyPress(Sender: TObject; var Key: Char);
begin
if key=#13 then
ShowMessage('You last-press is Enter'); end; procedure TForm1.Button1Click(Sender: TObject);
var key:char;
begin
Edit1.Text:='this is a test' ;
key:=#13;
Edit1KeyPress(sender,key);
end; end.
var 的變數怎能傳常數#13呢? ～～～Delphi K.Top討論區站長～～～
------
～～～Delphi K.Top討論區站長～～～ |
|
Jasonwong
版主 發表：49 回覆：931 積分：581 註冊：2006-10-27 發送簡訊給我 |
引言: 請問我若想透過其它event(非是edit1KeyPress)給 edit1.text 一個值,並且觸發 edit1Keypress,如下,該如何做,Compile 一直有問題,請問 倒數第三行 Edit1KeyPress(sender,#13); 後面的參數該如何給....?????,謝謝 unit Unit1; interface uses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, StdCtrls; type TForm1 = class(TForm) Edit1: TEdit; Button1: TButton; procedure Edit1KeyPress(Sender: TObject; var Key: Char); procedure Button1Click(Sender: TObject); private { Private declarations } public { Public declarations } end; var Form1: TForm1; implementation {$R *.dfm} procedure TForm1.Edit1KeyPress(Sender: TObject; var Key: Char); begin if key=#13 then ShowMessage('You last-press is Enter'); end; procedure TForm1.Button1Click(Sender: TObject); begin Edit1.Text:='this is a test' ; Edit1KeyPress(NIL,PChar(#13)); <-- 改成這樣...試試看 end; end.
------
聰明的人，喜歡猜心；雖然每次都猜對了，卻失去了自己的心 傻氣的人，喜歡給心；雖然每次都被笑了，卻得到了別人的心 |
|
cocodi
一般會員 發表：21 回覆：65 積分：17 註冊：2002-06-27 發送簡訊給我 |
|
|
ccchen
版主 發表：61 回覆：940 積分：1394 註冊：2002-04-15 發送簡訊給我 |
發表時間：2002-07-13 16:24:17
IP:61.170.xxx.xxx 未訂閱
系統時間：2024-04-27 3:27:11
聯絡我們 | Delphi K.Top討論版
| 本站聲明 |
|
1. 本論壇為無營利行為之開放平台，所有文章都是由網友自行張貼，如牽涉到法律糾紛一切與本站無關。 2. 假如網友發表之內容涉及侵權，而損及您的利益，請立即通知版主刪除。 3. 請勿批評中華民國元首及政府或批評各政黨，是藍是綠本站無權干涉，但這裡不是政治性論壇！ |