各位大大好，我在用
speedbutton datetimepicker1时，
把日期用键盘修改后（注意：是用键盘修改日期），
然后：showmessage(datetostr(datetimepicker1.date));
显示为修改前的日期。
但用button就没问题
不知各位大大有没有碰到过这么奇怪的事

請在on key press 中處理


===================引 用 luowy651 文 章===================
各位大大好，我在用
speedbutton datetimepicker1时，
把日期用键盘修改后（注意：是用键盘修改日期），
然后：showmessage(datetostr(datetimepicker1.date));
显示为修改前的日期。
但用button就没问题
不知各位大大有没有碰到过这么奇怪的事

还是不行





unit Unit1;
interface
uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, StdCtrls, ComCtrls, Buttons;
type
TForm1 = class(TForm)
Date1: TDateTimePicker;
Edit1: TEdit;
Button1: TButton;
SpeedButton1: TSpeedButton;
procedure Button1Click(Sender: TObject);
procedure FormCreate(Sender: TObject);
procedure SpeedButton1Click(Sender: TObject);
procedure Date1KeyPress(Sender: TObject; var Key: Char);
private
{ Private declarations }
public
{ Public declarations }
end;
var
Form1: TForm1;
implementation
{$R *.dfm}
procedure TForm1.Button1Click(Sender: TObject);
begin
edit1.text:= FormatDateTime('YYYYmmdd',Date1.date);
end;
procedure TForm1.FormCreate(Sender: TObject);
begin
date1.date:=date;
end;

procedure TForm1.SpeedButton1Click(Sender: TObject);
begin
edit1.text:= FormatDateTime('YYYYmmdd',Date1.date);
end;
procedure TForm1.Date1KeyPress(Sender: TObject; var Key: Char);
begin
edit1.text:= FormatDateTime('YYYYmmdd',Date1.date);
end;
end.

編輯記錄

在on key press 中處理時，您當然還必須判斷是不是按了Enter鍵
假如按了Enter鍵才將數值給Edit呀~



===================引 用 luowy651 文 章===================
还是不行





unit Unit1;
interface
uses
? Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
? Dialogs, StdCtrls, ComCtrls, Buttons;
type
? TForm1 = class(TForm)
??? Date1: TDateTimePicker;
??? Edit1: TEdit;
??? Button1: TButton;
??? SpeedButton1: TSpeedButton;
??? procedure Button1Click(Sender: TObject);
??? procedure FormCreate(Sender: TObject);
??? procedure SpeedButton1Click(Sender: TObject);
??? procedure Date1KeyPress(Sender: TObject; var Key: Char);
? private
??? { Private declarations }
? public
??? { Public declarations }
? end;
var
? Form1: TForm1;
implementation
{$R *.dfm}
procedure TForm1.Button1Click(Sender: TObject);
begin
edit1.text:= FormatDateTime('YYYYmmdd',Date1.date);
end;
procedure TForm1.FormCreate(Sender: TObject);
begin
date1.date:=date;
end;
?
procedure TForm1.SpeedButton1Click(Sender: TObject);
begin
?edit1.text:= FormatDateTime('YYYYmmdd',Date1.date);
end;
procedure TForm1.Date1KeyPress(Sender: TObject; var Key: Char);
begin
?edit1.text:= FormatDateTime('YYYYmmdd',Date1.date);
end;
end.

編輯記錄

谢谢老大仔大大,但一般情况下,不会去按key,大部分情况下都是直接点mouse的




===================引 用 老大仔 文 章===================
在on key press 中處理時，您當然還必須判斷是不是按了Enter鍵
假如按了Enter鍵才將數值給Edit呀~

所以照您這樣說~
一開始您說"用键盘修改日期" 所以才需要在on Key Press 中去操作的
而現在又說"大部分情况下都是直接点mouse的"
所以您到底是要哪種方法??



===================引 用 luowy651 文 章===================
谢谢老大仔大大,但一般情况下,不会去按key,大部分情况下都是直接点mouse的




===================引 用 老大仔 文 章===================
在on key press 中處理時，您當然還必須判斷是不是按了Enter鍵
假如按了Enter鍵才將數值給Edit呀~

編輯記錄

抱歉,是我没说清楚,我指的是先用键盘修改日期(在datetimepicker元件上可看到有蓝色的修改痕迹),然后再用mouse去点击speedbutton1

===================引 用 老大仔 文 章===================
所以照您這樣說~
一開始您說"用键盘修改日期" 所以才需要在on Key Press 中去操作的
而現在又說"大部分情况下都是直接点mouse的"
所以您到底是要哪種方法??



===================引 用 luowy651 文 章===================
谢谢老大仔大大,但一般情况下,不会去按key,大部分情况下都是直接点mouse的




===================引 用 老大仔 文 章===================
在on key press 中處理時，您當然還必須判斷是不是按了Enter鍵
假如按了Enter鍵才將數值給Edit呀~

TForm1.DateTimePicker1Change 是否可以解決呢？一被修改就更改 但不建議用showmessage ，會一直提示，改秀在label或edit


===================引 用 luowy651 文 章===================
各位大大好，我在用
speedbutton datetimepicker1时，
把日期用键盘修改后（注意：是用键盘修改日期），
然后：showmessage(datetostr(datetimepicker1.date));
显示为修改前的日期。
但用button就没问题
不知各位大大有没有碰到过这么奇怪的事

谢谢关注,情况一样,可能是focus的问题,只要先在别的元件上focus一下,就可解决,只是我很奇怪为什么会这样


===================引 用 hpsonic 文 章===================
TForm1.DateTimePicker1Change 是否可以解決呢？一被修改就更改 但不建議用showmessage ，會一直提示，改秀在label或edit


===================引 用 luowy651 文 章===================
各位大大好，我在用
speedbutton datetimepicker1时，
把日期用键盘修改后（注意：是用键盘修改日期），
然后：showmessage(datetostr(datetimepicker1.date));
显示为修改前的日期。
但用button就没问题
不知各位大大有没有碰到过这么奇怪的事

因為 TSpeedButton 不會 Focused.
也就是當 TSpeedButton 被 Click 時, 游標並不會移到這個 TSpeedButton 物件上,
當然也就不會觸發 TEdit().OnExit 事件,
所以你在 TSpeedButton 的 OnClick 事件中去讀取 TEdit().Text 值時, 就會有問題.
不只是 TSpeedButton 不會 Focused, TToolButton 也是,
這是選用物件時要注意的地方.

不是TSpeedButton 的 forbidden 事件
是 TSpeedButton.OnClick 事件
(貼太快了)

版主:
T S p e e d B u t t o n . O n C l i c k 會變成 TSpeedButton.OnClick