如何从任务栏或者任务栏图标弹出消息框 例如qq的系统消息,登陆提示
解决方案 »
- Delphi现任版主的艳照遭泄露(名字以*号表示,自己猜)
- delphi中如何发送url到opera的当前标签
- 求助 Timage.picture.icon颜色失真
- 难度问题:如何做一个最低层的Form,也就说其它程序可以在那个form上面,还有些其它条件,详见内!
- 一个简单问题
- 请教类型转换IUnknown->Variant
- dcu文件如何还原为pas文件?
- 请教怎么取汉字的ASCII码???
- 整样把屏幕RGB色元转成打印CMYK色元?
- !急!急!急如何实现圆的转动效果,以下为我写的VB代码,能用DELPHI代码改写吗
- 当前最活跃、问题解决实时性最高的技术组织-----Delphi圣地.net--第六次拓展(顺便散分)
- 网上哪有delphi 7的初学教材可以下载?
Begin
Form1.Top := Screen.Height;
Form1.Left := Screen.Width - Form1.Width;
SysTmrTimer.Enabled := True;
End;Procedure TForm1.SysTmrTimerTimer(Sender: TObject);//SysTmrTimer是个Timer
Begin
//请将Interval属性设为10…
Form1.Top := Form1.Top - 1;
If Form1.Top = Screen.Height - Form1.Height Then
SysTmrTimer.Enabled := False;
End;End.
Procedure TForm1.SysTmrTimerTimer(Sender: TObject);//SysTmrTimer是个Timer
Begin
//请将Interval属性设为10… 设为10与设50的效果是一样的,用TIMER组件达不到10的定时的
Form1.Top := Form1.Top - 1;
If Form1.Top = Screen.Height - Form1.Height Then
SysTmrTimer.Enabled := False;
Timer2.ENABLED:=true
End;
Timer2Timer(Sender: TObject);//Interval属性设为3000
begin
Form1.hide
self.Enabled := False
end