type
TForm1 = class(TForm)
Label1: TLabel;
private
procedure MyMessage(var Msg: TWMTimeChange); message WM_TIMECHANGE;
{ Private declarations }
public
{ Public declarations }
end;
...
procedure TForm1.MyMessage(var Msg: TWMTimeChange);
begin
if Msg.Result=0 then
Form1.Label1.Caption:='OK';
end;
سلام ... من ندای درون توام ... حتما باید برگه مرخصی ات رو برسونی و ببری بیمارستان تایید کنی ... یادت نره امروز رفتم صحبت کردم ...
ممنوم سعید جون