quaifp1

Difficult. But you may be able to adapt the below. 3 Function and 1 definition TYPE StringArray = ARRAY OF STRING; to test would be 1st bit of code [CODE] procedure TMain.Button1Click(Sender: TObject); var a : StringArray; begin IF E1.TEXt = '' THEN Exit; A := parsestring(e1.text,'-'); E1.text := A[0] …

Hi, I have usually have 2 monitors available but not always. I use one for displaying maps and the other for the data on a called form. How do 1 get Maps on 1 and Data to appear on the other without dragging the form onto the second monitor. Thanx …

Hi, Personally i would be tempted to use the tag field in tEdit to enumerate each field. With a form and 5 TEdits [Edit1..5] with tags 0..4 An Array A[0..4] of String And a button Put say a,b,c,d,e into your 5 Tedits and hit the button procedure TForm1.Button1Click(Sender: TObject); VAR …

TRY This: [CODE]procedure TMain.FormKeyDown(Sender: TObject; var Key: Word; Shift: TShiftState); begin CASE Key OF Ord('1') : IF Shift = [SSCTRL] THEN Edit1.Text := 'CTRL 1 - Pressed' ELSE IF Shift = [SSAlt] THEN Edit1.Text := 'Alt 1 - Pressed' End; {CASE} end;[/CODE] [QUOTE=cao;1038767]You are attempting to trap the key stroke …

Hi, You must put the IO Checking off flag before the assign statement otherwise the exception occurs before you can check it;

[QUOTE=especta;1035506]i have problem to allow enter only from 1 to 65535 bicouse example if enter 10000,2000 is ok but enter 99 not. hire 1 example (not working) [CODE]If somthing.Text > '65535 'then ShowMessage(' you enter biger Number from 65535'); Exit;[/CODE] hire 2 example (not working) [CODE]var result : Integer; string1: …

Hi, I want to create a line on a canvas ( similar to a visio connector but not as fancy) which will allow a mouseover event to be trapped ( this would trigger a property sheet to display the atributes of the line - a microwave link in my case …

> Hi, i am trying to get my application to check, which radiobutton is selected, and then perform instructions based on the selection. > > but i cant seem to use a IF and ELSE procedure to do this, can somebody help me out as to what procedure i should …