如何由某個事件觸發其它事件 |
|
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 發送簡訊給我 |
本站聲明 |
1. 本論壇為無營利行為之開放平台,所有文章都是由網友自行張貼,如牽涉到法律糾紛一切與本站無關。 2. 假如網友發表之內容涉及侵權,而損及您的利益,請立即通知版主刪除。 3. 請勿批評中華民國元首及政府或批評各政黨,是藍是綠本站無權干涉,但這裡不是政治性論壇! |