۹

مهر

جوکستان ورژن ۲.۷

لوگوی جوکستان

آیا دنبال متنی میگردید که روز مادر را به مادرتان تبریک بگوید ؟
آیا دنبال جمله ای هستید تا احساساس خود را به همسرتان نشان دهید ؟
آیا از گشت و گذار برای پیدا کردن پیامک های جدید و نو خسته شده اید ؟

برنامه جوکستان مجموعه ای بی نظیر از هزاران پیامک و جک در یک برنامه است که همه نیاز های پیامکی شما را برطرف میکند . این برنامه با داشتن بخش های متنوع و دسته بندی شده پیدا کردن متن دلخواه را برای شما آسان کرده .

جوکستان با داشتن هزاران جک و پیامک و امکانات عالی لحظات خوشی را برای شما به ارمغان می آورد . این برنامه دارای خصوصیات بی نظیر از قبیل :

…بیش از ۴۰۰۰ جوک و اس ام اس و تبریک و ✿
دسته بندی موضوعی و تنوع زیاد ✿
SMS امکان ارسال مستقیم ✿
امکان ارسال ایمیل در خود برنامه ✿
تنوع در پس زمینه های مطالب ✿
امکان ذخیره متن های دلخواه در بوک مارک✿
امکان انتخاب مطالب به صورت تصادفی از منوی کشویی با تکان دادن گوشی ✿
آپدیت پیامک ها به صورت اتوماتیک ، پس همیشه از جک ها و پیام های جدید لذت ببرید ✿
ساپورت رتینا ✿
امکان ارسال پیامهای خود به برنامه ✿
… و

مطالب این نرم افزار از سایتهای مختلف زیادی گردآوری شده و هیچگونه قصد و نظر خاصی در مورد اقوام یا ملت ها نداشته است .

خنده بر هر درد بی درمان دواست :D

دانلود نرم افزار

لینک کمکی

دانلود از AppStore

هموطنان عزیز برای خرید می توانند :
مبلغ نرم افزار ۵۰۰۰ تومان
مبلغ اشتراک آپدیت برای یک سال ۱۰۰۰۰ تومان

شماره حساب :
شماره کارت: ۶۰۳۷۹۹۱۰۴۱۳۶۵۰۲۸
شماره حساب سیبا ملی: ۰۱۰۱۶۹۳۳۴۵۰۰۶

*** بعد از خرید فرم خرید را از داخل نرم افزار ارسال و کد فعال سازی را کمتر از ۱۲ ساعت از صندوق پیامهای نرم افزار دریافت نمایید .

نسخه نمایشی تعداد ۸ متن از هر گروه را نمایش می دهد.

۹

مهر

ایرانپلاک ۴.۰

نرم افزاری برای شناسایی شهر مالک خودروها

دانلود

 

 

۲۴

فروردین

Only numerical input in a TEdit

If you want to limit the input of a TEdit to numerical strings only, you can discard the “invalid” characters in its OnKeyPress event handler.

Let’s assume that you only want to allow positive integer numbers. The code for the OnKeyPress event handler is as follows:

procedure TForm1.Edit1KeyPress(Sender: TObject; var Key: Char);
begin
  // #8 is Backspace
  if not (Key in [#8, '0'..'9']) then begin
    ShowMessage('Invalid key');
    // Discard the key
    Key := #0;
  end;
end;

ادامه مطلب …

۱۴

فروردین

Override Global Screen.Cursor Change for a Cancel type Button

When you want to run a lengthy process in your application that needs no user interaction, you can change the value of the Screen.Cursor property to have the mouse cursor display as a hourglass, for example, while the process is being executed.

The Screen.Cursor property of the global Screen object has a global effect. It controls the cursor shape for all the forms, and the controls on the form, in the application.

When you change the global screen cursor, the user can still click any buttons on the form but visual appearance of the cursor does not imply so.

When you “surround” a consuming / critical operation with a global cursor change, you might want to have one button act as a cancel button, where the click to this button would stop the process.

Since the Screen.Cursor will affect all the controls on the form, you might want to make sure that this “cancel button” displays a “normal” cursor when the mouse pointer is over it.

Note that in the above scenario I’m not taking about the Cancel property of a Button which determines whether the button’s OnClick event handler executes when the Escape key is pressed.
I’m talking of a button that when clicked will stop the lengthy process.

ادامه مطلب …

۱۴

فروردین

Sort a Generic List using Anonymous Comparer Method

Delphi 2009 adds Generics and Anonymous methods to the Delphi language.

When you have objects in some list – one of a commonly required tasks is to sort the list: either ascending, descending or using some list-specific algorithm.

Using anonymous methods you can apply the sorting function directly “inline” with the call to the Sort method.

ادامه مطلب …

۱۴

فروردین

Cycle Enum Values in Delphi

An enumerated type in Delphi, or enum lets you define a list of values. The values have no inherent meaning, and their ordinality follows the sequence in which the identifiers are listed.

For example, the Align property most Delphi controls expose is of type TAlign which is an enum type defined as

TAlign = (alNone, alTop, alBottom, alLeft, alRight, alClient, alCustom)

Another example is the ViewStyle property of a TListView. ViewStyle determines the visual display of items in a list view. The items can be displayed as a set of movable icons, or as columns of text.

ادامه مطلب …

۱۴

فروردین

Delphi Interceptor Classes -> TButton = class(TButton)

Have you ever needed for a specific Delphi control, like a TButton, to have just one more property or a method that is a “must have” for your current application?

Experienced Delphi developers, when they need a TMySuperButton, would either look for a third-party VCL solution or would try creating a derived control.

What if you do not want to have this MySuperButton permanently in the Component/Tool Palette – since it solves one problem only for this particular application you are developing?

What’s more … how about having a TButton with more properties and methods, some application specific extra behavior, and not TMySupperButton? How about extending what TButton has without the need to create a derived class with a different name?

You could think now of class helpers, but class helper allow only class methods to be added to a class.

What most beginners do not know is that they *can* create their own custom controls derived from the existing VCL set by creating a, so called, interceptor class that has the same name as the class being extended.

ادامه مطلب …

۱۴

فروردین

Force Display of ToolButton’s PopupMenu when Button is Clicked

Delphi’s TToolBar control manages tool buttons, TToolButton controls. Typically, the tool buttons correspond to items in an application’s menu and give the user more direct access to the application’s commands.

Depending on the Style property of the button placed on a tool bar, a button, a drop down button, a text button or a divider will be displayed to the user. Tool buttons can act like regular push buttons; toggle on and off when clicked and can act like a set of radio buttons.

ادامه مطلب …

۱۴

فروردین

Convert Roman Numbers to Arabic / Integer Numbers

The number system in most common use today is the Arabic system. The ten single-digit numerals, “0″ through “9″, make up the symbols of our numbering system. An example of a different numeral system is the system of Roman numerals, which could represent all the numbers from 1 to 1,000,000 using only seven symbols: I = 1, V = 5, X = 10, L = 50, C = 100, D = 500, M = 1000. Example: 1973 (Arabic) is MCMLXXIII (Roman).

ادامه مطلب …

۱۴

فروردین

What does #13#10 stand for, in Delphi code?

You’ve certainly seen “#13#10″ many times in Delphi source code. If you are wondering what those characters stand for, here’s the answer:

A control string is a sequence of one or more control characters, each of which consists of the # symbol followed by an unsigned integer constant from 0 to 255 (decimal or hexadecimal) and denotes the corresponding ASCII character.

ادامه مطلب …

۱۴

فروردین

Universal solution to formatting values for SQL statements

When working on database applications using dbGO (ADO) over SQL Server or MS Access, you might be having troubles formatting the SQL string expression used in various INSERT, UPDATE or SELECT statements.

ادامه مطلب …

۱۴

فروردین

The role of the “AOwner” parameter in the Create constructor

Whenever memory is allocated for an object, it must eventually be freed (or you’ll produce amemory leak). But with components, there is often little mention of the need to do this. Delphi must be destroying the objects, but how does it know when we’re through with them?

ادامه مطلب …