edysoftware.com

3. sugio_reload

3. edysoftware

3. edy_ppkia

3. cs_ksmvcr

How To dial using mscomm ocx..

SecondsBetween in unit DateUtils

function TFrmDial.SendGetData(Teks:string): String;
var
waktu: TDateTime;
begin
waktu := now;
MSComm1.Output:=Teks;
while  (SecondsBetween(waktu, Now) < 10)
do Application.ProcessMessages;
Result :=  MSComm1.input;
end;
Continue Reading…

This is example how to use twebbrowser component in delphi to login in yahoo mail..

unit Unit1;

interface

uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, StdCtrls, OleCtrls, SHDocVw,MSHTML;

Continue Reading…

This is tip to find replace text in richedit

procedure TFrmChat.RearchAndReplace(InSearch, InReplace: string) ;
var X, ToEnd : integer;
oldCursor : TCursor;
begin
oldCursor := Screen.Cursor;
Screen.Cursor := crHourglass;
with RichEdit1 do
begin
X := 0;
ToEnd := length(Text) ;
X := FindText(inSearch, X, ToEnd, []) ;
while X <> -1 do
begin
SetFocus;
SelStart := X;
SelLength := length(inSearch) ;
SelText := InReplace;
X := FindText(inSearch,
X + length(InReplace),
ToEnd, []) ;
end;
end;
Screen.Cursor := oldCursor;
end;

Create Buttons YmIndo Emotion Icons Runtime

We can make button to show icons in form chat ym by runtime. The button will created when form create, button declare as sp from array of TSpeedButton;

procedure TFrmChat.FormCreate(Sender: TObject);
var x,y,z:integer;
sp: array[1..100] of TSpeedButton;
lab: array[1..100] of Tlabel;
leftPosition, topPosition, btnWidth : Integer;
begin

Continue Reading…

Select YM Online Icon

We can select many icon to show that we are being online on yahoo messanger. Yahoo give us 25 icons,

look this :

Value from 0 to 24

0. edysoftware

1. edysoftware

2. edysoftware

3. edysoftware

4. edysoftware

5. edysoftware

6. edysoftware

7. edysoftware

8. edysoftware

9. edysoftware

10. edysoftware

11. edysoftware

12. edysoftware

13. edysoftware

14. edysoftware

15. edysoftware

16. edysoftware

17. edysoftware

18. edysoftware

19. edysoftware

20. edysoftware

21. edysoftware

22. edysoftware

23. edysoftware

24. edysoftware

How to Change Apppliaction icon…?

Normaly we use:

• menu project
• Options
• Tab Application
• Load Icon
• OK

But we can change that icon when the program is being run.

Step by Step :

Continue Reading…

An array represents an indexed collection of elements of the same type (called the base type). Because each element has a unique index, arrays, unlike sets, can meaningfully contain the same value more than once. Arrays can be allocated statically or dynamically.

Static array types are denoted by constructions of the form

array[indexType1, ..., indexTypen] of baseType
Continue Reading…

The following examples of how to make a record data type and its relationship with the pointer data type. and how to fill each declare the data type.

• Create a new application
• Add a button
• on the button1 Click even add code like below:

procedure TForm1.Button1Click(Sender: TObject);

Continue Reading…

To Create database or table paradox we use DB and DBTables unit. The table user.db will created after we click button1.

• create new application
• Put button1 on the form1
• press F12
• add DB and DBTables like this  :

uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, StdCtrls,DB, DBTables;

for more..

Continue Reading…