تنبيه مثل برنامج المحادثة

[onexite]

السلام عليكم
هذه محاولة اتمنى تنال اعجابكم
يدعم جميع انواع الونداوز على ما اضن

PHP كود :

unit Unit1;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  ExtCtrls, StdCtrls,ShellAPI;

type
  TForm1 = class(TForm)
    tmr1: TTimer;
    mmo1: TMemo;
    procedure FormCreate(Sender: TObject);
    procedure tmr1Timer(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form1: TForm1;

implementation

{$R *.dfm}
   function _siz:Integer;

     var
  Data: TAppBarData;
begin
Result:=31;

Data.hWnd := FindWindow('Shell_TrayWnd', nil);
Data.cbSize := SizeOf(TAppBarData);

if Data.hWnd <> 0 then
if SHAppBarMessage(ABM_GETTASKBARPOS, Data) = 1 then
Result:=Data.rc.Bottom - Data.rc.Top;

   end;
procedure TForm1.FormCreate(Sender: TObject);

begin
top:=Screen.Height;
Left:=Screen.Width-form1.Width ;
tmr1.Enabled:=True;
mmo1.Visible:=False;

end;

procedure TForm1.tmr1Timer(Sender: TObject);
var i:Integer;
begin
  Form1.Height:=0  ;
  i:=0;
  repeat
  inc(i);
  top:=Screen.Height-Form1.Height-_siz;
  Form1.Height:=Form1.Height+1 ;
     if i=235 then
     mmo1.Visible:=True;
  until i=240;

  //
  tmr1.Enabled:=False;
end;

end. 


[mobile]

وعليكم السلام ورحمة الله
مبادرة جيدة بارك الله فيك

[aL3mEeL]

مشكور أخي و أنا في بداية المشوار...

[onexite]

تسمى هذه هجرة
مرحبا بك اخي العميل هنا بين احبابك واصحابك

[MRS_FPS]

الله يجزيك الخير