Delphi Pages Forums  

Go Back   Delphi Pages Forums > Search Forums

Lost Password?

Showing results 1 to 21 of 21
Search took 0.01 seconds.
Search: Posts Made By: ADMack
Forum: General 02-28-2001, 10:56 PM
Replies: 2
Views: 3,629
Posted By ADMack
RE: Search in a Query

In the editbox keyup event, use the following:

procedure TForm1.Edit1Change(Sender: TObject) ;
Var
GotIt : boolean ;
HowMany : integer ;
Begin
HowMany := Length(edit1.text) ;
GotIt...
Forum: General 02-24-2001, 12:20 PM
Replies: 2
Views: 1,421
Posted By ADMack
RE: hi,database controls such as ...?

Your controls such as DBEdit, DBMemo, etc.. come with delphi. As for the Datepicker, maskedit, etc.. Try using the Adrock Controls available from www.adrock.com
Forum: General 02-24-2001, 12:16 PM
Replies: 3
Views: 8,149
Posted By ADMack
RE: Making a busy Cursor appear when I want it to.

Prior to performing the search, add the following:

Screen.Cursor := crHourGlass ;
Application.ProcessMessages ;
.....
..... DB Search routine here...
.....
Screen.Cursor := crDefault ;...
Forum: General 02-11-2001, 11:32 PM
Replies: 1
Views: 2,034
Posted By ADMack
RE: Index Problems

Are you using an autoincrement for your key fields? How many users are using the program at a time? what type of databases? Paradox?Access?
Forum: General 02-11-2001, 11:22 PM
Replies: 2
Views: 1,856
Posted By ADMack
RE: Changing an exe's icon

For a delphi program, just use:

'P'roject; 'O'ptions; 'A'pplication; and load a new icon.

If your talking about a non delphi program exe, you cannot change the icon in the exe file, at least...
Forum: General 02-11-2001, 11:14 PM
Replies: 1
Views: 1,063
Posted By ADMack
RE: how to edit and update a field that is also a key in a database

Please provide some example code that you are trying to work with.

If you are using a TTable, just call the edit routine:

MyTable.Edit ;

Then perform your edits and do a post:
...
Forum: General 02-11-2001, 10:49 AM
Replies: 1
Views: 1,512
Posted By ADMack
RE: problem registering ocx

Uninstall the OCX via:
regsvr32 /u FS3.OCX

then re-register it.
Forum: General 02-11-2001, 10:44 AM
Replies: 2
Views: 1,308
Posted By ADMack
RE: how create forms at runtime correct?

To create the form at runtime, use:

Procedure TForm1.ShowNextForm ;
Begin
// Create the form
Application.CreateForm(TNewForm, NewForm) ;
// Show the form Modal
NewForm.ShowModal...
Forum: General 02-09-2001, 09:54 PM
Replies: 3
Views: 9,557
Posted By ADMack
RE: How to check internet connection?

Add the following constants:
const
INTERNET_CONNECTION_MODEM = 1;
INTERNET_CONNECTION_LAN = 2;
INTERNET_CONNECTION_PROXY = 4;
...
Forum: General 01-30-2001, 01:45 AM
Replies: 5
Views: 8,029
Posted By ADMack
RE: How Can I Hide a Folder...

Function HideDirectory(Const TheFile : String): Boolean;
Var
Attrib : Integer;
Begin
Result := False;
Try
If Not FileExists(TheFile) Then Exit;
Attributes := faDirectory + faHidden +...
Forum: General 01-30-2001, 01:42 AM
Replies: 3
Views: 2,176
Posted By ADMack
Forum: General 01-30-2001, 01:41 AM
Replies: 1
Views: 3,396
Posted By ADMack
RE: How can I set the attribute of a directory to be hidden

Function HideDirectory(Const TheFile : String): Boolean;
Var
Attrib : Integer;
Begin
Result := False;
Try
If Not FileExists(TheFile) Then Exit;
Attributes := faDirectory +...
Forum: General 01-30-2001, 01:28 AM
Replies: 3
Views: 2,176
Posted By ADMack
RE: How to add icon to the taskbar?

the simplest way to achieve this is to download the RXLib.

This library (Excellent library!!) contains RXTrayIcon. With this, you can easily place an icon in the system tray, and if you so...
Forum: General 01-30-2001, 01:24 AM
Replies: 1
Views: 2,473
Posted By ADMack
RE: Lock file too large ??

This error can be caused by one or more of the following:
1) the executable is in the same directory as the table;
2) private directory not set or not set correctly;
3) having a paradox table open...
Forum: General 01-25-2001, 11:12 AM
Replies: 3
Views: 1,701
Posted By ADMack
RE: Making a Loop

Yes, a simple loop can be done with:

Procedure Test;
Var
V_Loop : Integer ;
Begin
For V_Loop := 1 to 5 Do
Begin
// commands to be performed within the
//...
Forum: General 01-25-2001, 10:10 AM
Replies: 4
Views: 3,232
Posted By ADMack
RE: RE: RE: Reading only part of a string

Should you wish to start on the 12th character of the string everytime, simply use V_StartPos := 12 instead of using POS.
Forum: General 01-24-2001, 09:11 PM
Replies: 4
Views: 3,232
Posted By ADMack
RE: Reading only part of a string

Assuming you have a form, with 2 edit boxes and 1 spin edit, this is how you grab the required substring.

Var
V_StartPos : Integer ;
V_HowManyChars : Integer ;
begin
// edit1 contains...
Forum: General 01-24-2001, 06:29 PM
Replies: 1
Views: 1,389
Posted By ADMack
RE: I have to create a Txt file, write text to it, then save it BUT....

Var
Lst : TextFile ;
begin
AssignFile(Lst, 'C:\mytxt');
Rewrite(Lst);
WriteLn(Lst, 'Hello, World!');
CloseFile(lst) ;
end;

Will result in a text file being created on the...
Forum: General 01-07-2001, 11:01 AM
Replies: 1
Views: 4,417
Posted By ADMack
RE: TStringGrid

Var
I : Integer ;
begin
StringGrid1.Row := 2 ; // where 2 = Row To Delete
If StringGrid1.Row = StringGrid1.Row - 1 Then
// Row to delete is the last row in the string grid
...
Forum: General 01-07-2001, 04:36 AM
Replies: 2
Views: 8,542
Posted By ADMack
RE: RE: Running a database application on another computer

In the BDE on the other PC (the one without the database), you must add an alias to point to the location of the database in the format of:
f:\myprog\tables -> where tables is the directory...
Forum: General 01-05-2001, 04:00 PM
Replies: 2
Views: 4,357
Posted By ADMack
RE: How to copy a string into a pchar???????

Cast the string as a PChar:
ShellExecute(Application.MainForm.Handle, nil, 'mailto:' + PChar(EmailAddress), '', '', SW_SHOW);
Showing results 1 to 21 of 21

 
Forum Jump

All times are GMT. The time now is 05:12 AM.


Powered by vBulletin® Version 3.8.8
Copyright ©2000 - 2019, vBulletin Solutions, Inc.