Ideas

//Lo primero es incluir la cabecera <jpeg.hpp> #include <jpeg.hpp> //Crea un botón y dentro de éste escribe el siguiente código. Graphics::TBitmap *bmp=new Graphics:: TBitmap(); TJPEGImage *jpg […]

Para cargar una imagen en el campo ‘Graphics’ desde un fichero puedes utilizar el método ‘LoadFromFile()’ del propio campo. El siguiente ejemplo está adaptado de la […]

Para colocar una imagen en el área cliente de un formulario MDI (esto es, un formulario que tenga la propiedad ‘FormStyle = fsMDIForm’) se utiliza una […]

Para reproducir un archivo de sonido WAV desde Builder podemos usar la función PlaySound. La ayuda de esta función no esta integrada en el IDE del […]

//--------------------------------------------------------------------------- // CrearDSNAccess // Esta función crea un Nombre de Origen de Datos para poder establecer una // conexión via ODBC con una base de datos […]

Un ejemplo que te asigna la lista de impresoras a un ComboBox que se llama Lista: Lista->Items->Assign (Printer()->Printers); La lista de impresoras está en la propiedad […]

Puede invocar la ventana “Nuevo Mensaje” o “Componer Mensaje” del programa de correo electrónico predeterminado usando la función API ShellExecute declarada en la unidad ShellApi, simplemente […]

String St = "https://www.grupoalbor.com"; ShellExecute(Handle,"open",St.c_str(),0,0,SW_SHOW); ¿Cómo se podría hacer a traves de una función? void OpenURL(void) { (32 >= (int)ShellExecute(NULL, "open", "https://www.grupoalbor.com",NULL, NULL, SW_SHOWNORMAL)); }

TRect Rectangulo ; Rectangulo.Left=10; // {Izquierda} Rectangulo.Right=300; // {Derecha} Rectangulo.Top=10; // {Arriba} Rectangulo.Bottom=300; // {Abajo} ClipCursor(&Rectangulo); Para quitar la zona, basta con poner: ClipCursor(NULL);  

El código siguiente es una función que permite ejecutar un programa y esperar a que termine, obteniendo el código de retorno. int WinExecAndWait32(AnsiString FileName, int Visibility) […]

Unas de las muchas formas, de detectar si nuestra aplicación ya esta funcionando, y por lo tanto evitar dobles arranques, es utilizando un semáforo binario, llamado […]

Ejemplo sacado en parte de pag.901. Guia de Desarroyo c++ Builder 5: // Una Encapsulacion de la VCL de WIN32 LOGFONT // La Estructura LOGFONT define […]

Podemos hacer lo siguiente: void __fastcall TForm1::Button1Click(TObject *Sender) { TSearchRec sr; double tamanyo=0; int iAttributes = 0; if (FindFirst("c:\\windows\\*.*", iAttributes, sr) == 0) { tamanyo += […]

Puede ser Interesante evitar la actualización de un formulario (o de un control) para evitar parpadeos, acelerar procesos evitando el repintado de algún control, etc. Usando […]

Puede ocurrir que nos interese realizar un enlace desde nuestra aplicación a una determinada dirección de Internet. De tal forma, cuando pinche en una determinada zona […]

La creación de iconos para nuestros componentes VCL es muy sencilla, ya que tanto Delphi como C++ Builder disponen de una herramienta, llamada Image Editor, que […]

Hace poco me ví en la necesidad de arrancar el Servidor de Interbase/Firebird (en mi caso Firebird) si este estuviera desconectado al arrancar mi aplicación. En […]

Se puede usar el Tquery tranquilamente poniendo query.requestlive := false y usando query.Execsql Por ejemplo: var q: Tquery; q := query.create(nil); with q do begin requestlive […]

Nunca pases una fecha en forma literal, porque las bases de datos, segun como esten configuradas, pueden tener un formato default de fecha u otro. Por […]

Si buscas la palabra en cualquier parte del comentario: Select comentario from tabla where comentario likes ‘%GRAFICAS%’ Al principio : ‘GRAFICAS%’ Al final : ‘%GRAFICAS’ En […]

function HayDisquete(var Razon: Integer): Boolean; var Handle: THandle; FindData: TWin32FindData; begin Razon := NO_ERROR; { Al menos, de momento } FillChar(FindData, SizeOf(TWin32FindData), 0); Handle := Windows.FindFirstFile(PChar('A:\*.*'), […]

procedure TForm1.Button1Click(Sender: TObject); var versionSO:TOSVersionInfo; Cvalor:Cardinal; Evalor:Extended; begin VersionSO.dwOSVersionInfoSize:=SizeOf(VersionSO); GetVersionEx(VersionSO); // Versión StringGrid1.Cells[0,0]:='Versión'; EValor:=VersionSO.dwMajorVersion; StringGrid1.Cells[1,0]:=Format('%2n',[EValor]); // Plataforma StringGrid1.Cells[0,1]:='Plataforma'; CValor:=VersionSO.dwPlatformId; case Cvalor of 0 : StringGrid1.Cells[1,1]:='Sobre Windows […]

Utilizo wProcessorLevel aunque el problema es que está preparada para procesadores de tipo Intel. En estos se puede “afinar” más con el uso conjunto de wProcessorRevision, […]

Doy por supuesto que existe un StringGrid donde voy depositando los datos. procedure TForm1.Button1Click(Sender: TObject); var Memoria:TMemoryStatus; Evalor:Extended; begin // Datos de memoria Memoria.dwLength:=SizeOf(Memoria); GlobalMemoryStatus(Memoria); StringGrid1.Cells[0,1]:='Datos […]

En caso de que tengamos un equipo con múltiples lectores de CD-ROM, al usar MCI para reproducir indicando el dispositivo genérico cdaudio siempre se usará la […]

Los CD disponen de un código, llamado UPC, que permite reconocer de forma única cada título. En el caso de los CD de audio esto puede […]

Un setup que normalmente funciona es la instalación del Service Pack 3 en las terminales con NT 4.0. Si se va a utilizar cualquier aplicación cliente […]

Un archivo .OCX es servidor Ole (una dll especializada que define servicios de automatización OLE) que como tal debe ser registrado. A los OCX se los […]

DCOM es una extensión del modelo COM para entornos distribuidos y, como tal, cuenta con las mismas características, ventajas y desventajas de COM. Este modelo está […]

Actualmente existen básicamente tres sistemas o modelos de desarrollo de aplicaciones: monolítico, cliente/servidor y distribuido. El primero es el sistema tradicional que, con el tiempo, ha […]

CORBA es una arquitectura que facilita la interoperabilidad entre componentes distribuidos, desarrollados en diferentes lenguajes y que se ejecutan sobre distintas plataformas y sistemas operativos. CORBA […]

En la pestaña Server se encuentra el componente ExcellApplication que es el que debemos utilizar para acceder a sus utilidades. El rango (Range) es un objeto […]

En la pestaña Server se encuentra el componente ExcellApplication que es el que debemos utilizar para acceder a sus utilidades. El rango (Range) es un objeto […]

En el proceso de la creación de instalación del programa se utilizará el InstallShield (aunque hay otras posibilidades que no vienen con los paquetes de Delphi). […]

var PrinterSettings: TQuickRepPrinterSettings; en ese caso tendrás que asignarle en el OnPreview lo siguiente: With TFCustomPreview.Create(Self) do begin QRPreview1.QRPrinter := QuickRep1.QRPrinter; PrinterSettings := QuickRep1.PrinterSettings; Show; end; […]

var nPrn:TextFile; abrir:string; begin AssignFile(nPrn, 'LPT1'); Rewrite(nPrn); WriteLn(nPrn,cadena); //cadena:='chr(27)+... dependiendo de la impresora' CloseFile(nPrn); end

Estoy utilizando una tabla Paradox con Delphi 3 y los componentes Quick Report. El problema que tengo es que no puedo imprimir un campo memo variable […]

Se ha de utilizar ExportToFilter del QReport. Hay que poner en uses el QRExport o QRExtra, dependiendo de la versión de Quick Report. A continuación se […]

procedure TForm1.Button1Click(Sender: TObject); var Device, Driver, Port : array [0..255] of Char; Modo : Integer; begin Printer.GetPrinter(Device,Driver,Port,Modo); If Device <> '' then ShowMessage(Device) else ShowMessage('Sin definir […]

Function IsValidEAN(EANCode: String): Boolean; Var CheckSum1: String; Tmp, Tmp2: Integer; VerifyDigit: Integer; LectDigit: String; Begin // En principio, el valor por defecto en FALSE para IsValidEAN […]

function NIF(DNI: String): Char; begin Result := Copy('TRWAGMYFPDXBNJZSQVHLCKET',StrToInt(DNI) mod 23+1,1)[1]; end;

function NIF(DNI: String): Char; begin Result := Copy('TRWAGMYFPDXBNJZSQVHLCKET',StrToInt(DNI) mod 23+1,1)[1]; end;

Uniendo todos los mensajes aparecidos hasta el momento sobre el tema de la validación del CIF, he hecho un algoritmo entre todos ellos, que creo que […]

En tiempo de ejecución no hay problema en el cambio de parámetros. Poe ejemplo, un campo común a varias tablas y se precisa cambiar de una […]

Actualmente existen básicamente tres sistemas o modelos de desarrollo de aplicaciones: monolítico, cliente/servidor y distribuido. El primero es el sistema tradicional que, con el tiempo, ha […]

Nunca pases una fecha en forma literal, porque las bases de datos, segun como esten configuradas, pueden tener un formato default de fecha u otro. Por […]

Si buscas la palabra en cualquier parte del comentario: Select comentario from tabla where comentario likes ‘%GRAFICAS%’ Al principio : ‘GRAFICAS%’ Al final : ‘%GRAFICAS’ En […]

Doy por supuesto que existe un StringGrid donde voy depositando los datos. procedure TForm1.Button1Click(Sender: TObject); var Memoria:TMemoryStatus; Evalor:Extended; begin // Datos de memoria Memoria.dwLength:=SizeOf(Memoria); GlobalMemoryStatus(Memoria); StringGrid1.Cells[0,1]:='Datos […]

En caso de que tengamos un equipo con múltiples lectores de CD-ROM, al usar MCI para reproducir indicando el dispositivo genérico cdaudio siempre se usará la […]

Un setup que normalmente funciona es la instalación del Service Pack 3 en las terminales con NT 4.0. Si se va a utilizar cualquier aplicación cliente […]

Pasos que hay que dar: 1. Añadir el módulo CorbaObj a la cláusula Uses. 2. Llamar a CorbaInitialize; antes de realizar ninguna operación con CORBA. 3. […]

Veamos lo sencillo que resulta crear un servidor CORBA utilizando Borland Delphi 4, servidor que posteriormente responderá a peticiones de uno o más clientes. Lógicamente se […]

DCOM es una extensión del modelo COM para entornos distribuidos y, como tal, cuenta con las mismas características, ventajas y desventajas de COM. Este modelo está […]

El principal problema que plantea el desarrollo de aplicaciones distribuidas es la comunicación entre los diferentes componentes que la forman. Se asume que hay una conexión […]

Actualmente existen básicamente tres sistemas o modelos de desarrollo de aplicaciones: monolítico, cliente/servidor y distribuido. El primero es el sistema tradicional que, con el tiempo, ha […]

CORBA es una arquitectura que facilita la interoperabilidad entre componentes distribuidos, desarrollados en diferentes lenguajes y que se ejecutan sobre distintas plataformas y sistemas operativos. CORBA […]

En la pestaña Server se encuentra el componente ExcellApplication que es el que debemos utilizar para acceder a sus utilidades. El rango (Range) es un objeto […]

Se puede acceder a cualquiera de los interfaces expuestos en el servidor de automatización de Word, que pueden ser encontrados cargando MSWORD8.OLB en Delphi que a […]

En la pestaña Server se encuentra el componente ExcellApplication que es el que debemos utilizar para acceder a sus utilidades. El rango (Range) es un objeto […]

Estoy construyendo una aplicación en Delphi que accede a una base de datos ACCESS. Tengo definido en esta base de datos un campo de tipo OLE, […]

En el proceso de la creación de instalación del programa se utilizará el InstallShield (aunque hay otras posibilidades que no vienen con los paquetes de Delphi). […]

function EsEan(CodigoEan : String) : Boolean; var CheckSum, DigitoOrig : String; i, Digito, Longitud : Integer; begin Longitud := Length(CodigoEan); // Comprobar que no hay menos […]

var PrinterSettings: TQuickRepPrinterSettings; en ese caso tendrás que asignarle en el OnPreview lo siguiente: With TFCustomPreview.Create(Self) do begin QRPreview1.QRPrinter := QuickRep1.QRPrinter; PrinterSettings := QuickRep1.PrinterSettings; Show; end; […]

var nPrn:TextFile; abrir:string; begin AssignFile(nPrn, 'LPT1'); Rewrite(nPrn); WriteLn(nPrn,cadena); //cadena:='chr(27)+... dependiendo de la impresora' CloseFile(nPrn); end

Estoy utilizando una tabla Paradox con Delphi 3 y los componentes Quick Report. El problema que tengo es que no puedo imprimir un campo memo variable […]

procedure TForm1.Button1Click(Sender: TObject); var Device, Driver, Port : array [0..255] of Char; Modo : Integer; begin Printer.GetPrinter(Device,Driver,Port,Modo); If Device <> '' then ShowMessage(Device) else ShowMessage('Sin definir […]

Para añadir un elemento al escritorio de Windows, al menú Programas o a la carpeta de Inicio, no hay mas que crear el archivo o acceso […]

function DynamicResolution(X, Y: word): BOOL; var lpDevMode: TDeviceMode; begin Result := EnumDisplaySettings(nil, 0, lpDevMode); if Result then begin lpDevMode.dmFields := DM_PELSWIDTH Or DM_PELSHEIGHT; lpDevMode.dmPelsWidth := X; […]

Utilizamos el valor de las teclas virtuales según su estado en el buffer, considerando que está activado cuando la función GetKeyBoardState devuelve 1. Si queremos cambiarla […]

Muy simple, tan solo acordarse de incluir en Uses la ShellApi. Hay varias opciones, esta es una válida: ShellExecute(Self.handle,’Open’,’Compresor’,’Parámetros de compresón’,nil, SW_SHOWNORMAL); Para ejecutar, por ejemplo, […]

Podría no ser este un ejemplo del API de Windows en sentido estricto, lo incluyo por dos motivos, se utiliza una variable del tipo TsystemTime, que […]

Este ejemplo es para un DSN de Access. procedure TForm1.Button1Click(Sender: TObject); var Reg:TRegistry; Path:String; begin Path:=’c:\Neptuno.mdb’; Reg:=TRegistry.Create; Try Reg.RootKey:=HKEY_LOCAL_MACHINE; Reg.OpenKey(‘\Software\ODBC\ODBC.INI\jose’,True); Reg.WriteString(‘DBQ’,Path); Reg.WriteString(‘Driver’,’c:\windows\system\odbcjt32.dll’); Reg.WriteInteger(‘DriverId’,25); Reg.WriteString(‘FIL’,’MS Access;’); Reg.WriteInteger(‘SafeTransactions’,0); […]

ExtractFilePath(Application.ExeName) o ExtractFilePath(ParamStr(0))

Pon dos TLabels en tu form (Label1 y Label2). Pon un TPopupMenu, asociandolo a la form. Pon este código en el evento OnPopUp del PopUpMenu procedure […]

La función GetSystemInfo() proporciona información sobre el sistema. Su utilización es simple, tan solo precisa utilizar la estructura System_info, y para ello se le pasa como […]

Para no utilizar Size que no funcionará en discos grandes ya que se producirá una excepción al intentar meter en un ‘integer’ el tamaño del archivo […]

uses ShellAPI ; Function BarraEscondida : Boolean ; var AppBarData : TAppBarData ; begin AppBarData.cbsize := SizeOf(AppBarData) ; Result := ((SHAppBarMessage(ABM_GetState,AppBarData) and (Abs_AutoHide) > 0)) ; […]

De la misma forma que se hace con un programa externo, solo es conocer su nombre. Se puede utilizar ShellExecute(handle,‘open’,‘calc.exe’,nil,nil,sw_shownormal); Teniendo cuidado en incluir en Uses […]

Para detener la reproducción tan sólo hay que llamar de nuevo a la función facilitando Nil como primer parámetro. Tras insertar dos botones en un formulario, […]

No utilizando un “timer” tradicional, cuya exactitud no es muy buena debida a dos causas: la naturaleza multimedia de Windows y el hecho de que la […]

Utilizando Windows 95 o 98 if ExitWindowsEx (0,0) = 0 then showmessage ('No puedo reiniciar Windows); if ExitWindowsEx (1,0) = 0 then showmessage ('No puedo cerrar […]

Para ello tenemos que introducir la unidad ShellApi Uses ShellApi; Llamamos a la función que hemos denominada Tamanyo(), ya que no es culpa nuestra que las […]

Imaginemos que estamos creando una aplicación que va a ejecutarse en un servidorpara atender peticiones de clientes. Esta aplicación podría ser un servidor de bases de […]

Explicado muy básicamente: son aplicaciones que ejecutan simultáneamente varios procedimientos. Es decir, en lugar de ejecutarse de principio a fin de manera secuencial, el hilo principal, […]

Os escribo de nuevo para ver si me podeis orientar sobre un pequeño tema que estoy realizando en Delphi 3.0 para Win’95. Lo que pretendo es […]

Para colocar una imagen en el área cliente de un formulario MDI (esto es, un formulario que tenga la propiedad ‘FormStyle = fsMDIForm’) se utiliza una […]

procedure TForm1.Button1Click(Sender: TObject); var MiSerie:TBarSeries; begin MiSerie:=TBarSeries.Create(Self); With MiSerie do begin ParentChart:=Chart1; // o como se llame, del tipo TChart Add(VarBarra1,'', clRed); // VarBarra es tu […]

procedure TForm1.Button1Click(Sender: TObject); var FormatoFecha: PChar; ErrorCode: DWORD; ErrorMessage: Pointer; begin FormatoFecha:='dd/MM/yyyy'; if not SetLocaleInfo(LOCALE_SYSTEM_DEFAULT, LOCALE_SSHORTDATE,FormatoFecha) then begin file://si no se produce la modificación mostrar mensaje […]

* Función para calcular edad */ function Edad(Fecha:TDateTime):String; var A, AA, M, MM, D, DD: Word; Anio, Mes, Dia: double; begin DecodeDate(Fecha, A, M, D); DecodeDate(Date, […]

procedure TForm1.Button1Click(Sender: TObject); begin if IsLeapYear(2001) then showmessage('bisiesto') else showmessage('No bisiesto') end;

Por ejemplo, para saber en qué día cae el 14 de octubre del 2002 procedure TForm1.Button1Click(Sender: TObject); var dia:byte; begin dia:=DayOfWeek(encodedate(2002,10,14)); case dia of 1: Showmessage('Domingo'); […]

caption := LongDayNames[DayOfWeek(date)]

Para transformar la fecha de sistema a una cadena de tipo String, del tipo día – mes – año ShowMessage(FormatDateTime('ddmmyyyy',date)); Para transformar cualquier fecha, pero con […]

¿Que función me permite comprobar que el dato que se introduce en un campo fecha es válido?. ¿Que función me da el año, mes, dia de […]

La función similar a Delay() de Pascal, en Delphi es Sleep(msegundos).

Consideramos el número del DNI como un string: dni:='123456789'; showmessage(copy('TRWAGMYFPDXBNJZSQVHLCKET',StrToInt(dni) mod 23 + 1,1));

var EditArray : Array [1..20] of TEdit; procedure TForm1.FrmCreate(Sender: TObject); var n : integer; begin for n := Low(EditArray) to High(EditArray) do begin EditArray[n] := TEdit.Create(self); […]

Un número de cuenta corriente se compone de 20 dígitos: BBBBSSSSddCCCCCCCCCC Donde B son los cuatro dígitos del banco, S los cuatro de la sucursal, d […]

Para para pasar el foco al componente siguiente de quien lo tiene: SendMessage(Form1.Handle, WM_NEXTDLGCTL, 0, 0) Para pasarlo al anterior: SendMessage(Form1.Handle, WM_NEXTDLGCTL, 0, 0)

Si quieres que una variable pueda ser utilizada por todas las forms de tu apliacion, haz lo siguiente: Create una Unit (File-New-Unit) y pon tus variables […]

procedure TfrmMain.BtnHideFromTaskBarClick(Sender: TObject); begin ShowWindow( Application.Handle, SW_HIDE ); SetWindowLong( Application.Handle, GWL_EXSTYLE, GetWindowLong(Application.Handle, GWL_EXSTYLE) or WS_EX_TOOLWINDOW and not WS_EX_APPWINDOW); ShowWindow( Application.Handle, SW_SHOW ); end;

1- se define un procedimiento que se le tiene que asignar en el on create de la siguiente forma: procedure TFInicial.FormCreate(Sender: TObject); begin Application.OnMessage := AppMessage; […]

function NumSemana(Fecha:string):integer; var PrimerDia:TDate; DiaDelPrimerDia:integer; begin {Calculamos primer dia del año} PrimerDia:=StrToDate('01/01/'+Copy(Fecha,7,2)); {Calculamos dia de la semana que empieza por lunes} If DayOfWeek(PrimerDia)-1 =0 then DiaDelPrimerDia:=7 […]

procedure TForm1.Button1Click(Sender: TObject); var i:integer; begin i:=2538456; Label1.Caption:=FormatFloat('#,',i); end;

Este ejemplo, lo he tomado de una aplicación propia. Me basé en un ejemplo de Francisco Charte. Al guardar los datos en la tabla (he utilizado […]

Este ejemplo, lo he tomado de una aplicación propia. Me basé en un ejemplo de Francisco Charte. Al guardar los datos en la tabla (he utilizado […]

Uses Windows, Graphics; procedure AngleTextOut(Canvas: TCanvas; const Text: String; x, y, angle: Integer); var LogFont : TLogFont; SaveFont : TFont; begin SaveFont := TFont.Create; SaveFont.Assign(Canvas.Font); GetObject(SaveFont.Handle, […]

procedure TForm1.Button1Click(Sender: TObject); Var Fichero: File; Tamanyo: Integer; Begin Try AssignFile(Fichero,'c:\elfichero.txt'); Reset(Fichero,1); Tamanyo := FileSize(Fichero); CloseFile(Fichero); showmessage(FloattoStr(Tamanyo)); Except showmessage('Error'); End; End;

procedure TForm1.Button1Click(Sender: TObject); begin sendmessage(Edit1.Handle, WM_Char, 65,0) end;

Me gustaría saber cómo hay que programar una aplicación Delphi para que se pueda ejecutar en diferentes configuraciones gráficas (640*480, 800*600, diferentes resoluciones de color, etc..), […]

Por supuesto hay que probar desde fuera del Entorno para que no lance una excepción, en realidad se se capturan dentro del procedimiento que los vaya […]

El hecho de copiar un fichero, directorio o lo que sea es fácil, como si es todo un disco duro, hay muchas opciones. Si quieres que […]

procedure TForm1.FormActivate(Sender: TObject); begin Application.HintColor:=clBlue; // Ventana de mensajes en azul Application.HintPause:=1000; // Espera 1000 msg antes de mostrar el mensaje Application.HintHidePause:=2000; // A los 2000 […]

Tan sólo se trata de abrir el .dpr de la aplicación e introducir un par de líneas. FormSplash := TFormSplash.Create(nil); FormSplash.Update; Personalmente me gusta cerrarla transcurrido […]

Se obtiene la posición con: var position:tpoint begin GetCursorPos(position) Y en position.x y position.y tienes las coordenadas del ratón en la pantalla. Para posicionarlo en un […]

Consulta la propiedad PixelsPerInch del objeto Screen. En versiones previas a Windows 98 tan sólo se podía elegir entre fuentes grandes y pequeñas, casos en los […]

Este procedimiento hace lo que quieres. Tan sólo tienes que llamarlo pasando como parámetros el menú a copiar y el TTreeView destino. No elimina cualquier contenido […]

Programándolo en el dpr, por ejemplo, muestro un mensaje sin form: program Project1; uses Forms,Dialogs; {$R *.RES} begin Showmessage('Hola'); Application.Initialize; Application.Run; end. Tras crear una aplicación, […]

VER80 – Delphi 1 VER90 – Delphi 2 VER100 – Delphi 3 VER120 – Delphi 4 VER130 – Delphi 5 Por ejemplo lo siguiente compilaría en […]

Puedes ver lo que está tecleándose en un TDBGrid miranto en el control TInPlaceEdit del TDBGrid. Hay que tener cuidado y asegurarse de que se crea […]

El problema con las rutinas es que no buscan un archivo por extensión sino por nombre pero es bastante simple hacer el cambio apropiado y buscar […]

Cuando a una función matemática (así las contenidad en math.pas) se le asigna un valor, se considera a éste de tipo ‘integer’ por defecto. Para que […]

Posicionarlo en un lugar de la pantalla es facil SetCursorPos(x,y) Pero al ser x e y las coordenadas en relación a la pantalla completa, no solo […]

procedure TForm1.Button1Click(Sender: TObject); var CommPort : string; hCommFile : THandle; Buffer : PCommConfig; size : DWORD; begin CommPort := 'COM1'; {Open the comm port} hCommFile := […]

Los puertos COM en Windows se tratan de manera similar a otros dispositivos (archivos en disco, pipes, etc.). Como cualquier otro dispositivo, un puerto necesita un […]

function CurrentUserName:String; var u: array[0..127] of Char; sz:DWord; begin sz:=SizeOf(u); GetUserName(u,sz); Result:=u; end; procedure TForm1.Button1Click(Sender: TObject); begin ShowMessage(CurrentUsername); end;

Si el ordenador cuenta tan sólo con una cuenta de conexión a Internet, que es lo habitual, puede utilizarse la función InternetAutoDial() para llamar y conectar […]

Estoy trabajando en Delphi 3.0, y necesito leer un dato del puerto paralelo, no he encontrado una funcion propia de Delphi o informacion sobre un control […]

implementation {$R *.DFM} var hCommFile : THandle; // Botón para establecer la comunicación procedure TForm1.Button1Click(Sender: TObject); var NumeroTfno : string; PuertoCom : string; numero : cardinal; […]

El control ListBox dispone de una propiedad, llamada Style, que nos permite seleccionar el estilo. Si elegimos el estilo lbOwnerDrawFixed el control genera un evento OnDrawItem […]

Los controles TMemo y TRichEdit no disponen de propiedad ni método alguno que facilite la posición actual del cursor, por lo que es preciso usar algunos […]

Pon la propiedad DefaultDrawing a False y en el evento OnDrawColumnCell pon este codigo: if gdSelected in State then DbGrid1.Canvas.Brush.Color := clYellow; if gdFocused in State […]

En el evento onCreate del mismo se puede poner: Brush.Style := bsClear; En realidad lo que hace es tomar como fondo lo que hubiese en pantalla, […]

* Pon un TStringGrid (StringGrid1) en tu form * Pon este código en el evento OnDrawCell del StringGrid: procedure TForm1.StringGrid1DrawCell(Sender: TObject; Col, Row: Integer; Rect: TRect; […]

Este es un ejemplo utilizando Label, se crea la matriz de etiquetas, de la misma forma podríamos cambiar el componente. implementation Var Etiquetas : Array [1..8] […]

Utiliza un código similar al siguiente en el evento OnDrawCell’: procedure TLo_Que_Sea.StringGrid1DrawCell(Sender: TObject; ACol, ARow: Integer; Rect: TRect; State: TGridDrawState); var S: String; begin if ((0 […]

var x,tecla:integer begin for x:=0 to ComponentCount-1 do if (Componentes[x] is TEdit) and (TEdit(Components[x]).Focused=True)then PostMessage(TEdit(Components[x]).handle,WM_KEYDOWN,tecla,0); Donde “tecla” almacenará VK_RETURN, VK_LEFT, o la virtual que se quiera. […]

Cuando se pretende dar un formato a la visualización de una variable numérica, lo último probablemente que se puede utilizar es TmaskEdit. Perfecto, tiene sus comodines […]

Oracle no te permite borrar un campo de una tabla. Deberás recrear tu tabla sin ese campo. Lo que suelo hacer es renombrar la tabla (con […]

Supongamos que tenes una base de nombre BASE. Todas tus querys y tables deben estar relacionadas con BASE. El bloque de codigo de una transaccion podria […]

procedure Tform1.GuardarClick(Sender: TObject); var N:byte; Begin // Borro el contenido de la tabla TablaX.Active:=True; while not TablaX.Eof do begin TablaX.delete; end; TablaX.Active:=False; // ejecuto un pack […]

Aquí hay un ejemplo de uso de un TBlobStream: procedure TForm1.Button1Click(Sender: TObject); var BS1, BS2: TBlobStream; begin BS1 := TBlobStream.Create(Table1Notes,bmRead); try Table2.Edit; BS2 := TBlobStream.Create(Table2MyBlob,bmReadWrite); try […]

Utilizando un TDataBase y especificando la propiedad LoginPrompt a False.

Un ejemplo que te asigna la lista de impresoras a un ComboBox que se llama Lista: Lista->Items->Assign (Printer()->Printers); La lista de impresoras está en la propiedad […]

//Lo primero es incluir la cabecera <jpeg.hpp> #include <jpeg.hpp> //------------------------------------------------------------------------------------- //Crea un botón y detron de este escribe el siguiente código. Graphics::TBitmap *bmp=new Graphics:: TBitmap(); TJPEGImage […]

Por ejemplo, para saber en qué día cae el 14 de octubre del 2002 void __fastcall TForm1::Button1Click(TObject *Sender) { BYTE dia; dia=DayOfWeek(EncodeDate(2002,10,14)); switch(dia) { case 1: […]

String St = “http://www.wbuilder.f2s.com”; ShellExecute(Handle,”open”,St.c_str(),0,0,SW_SHOW); Como se podría hacer a traves de una función ?? void OpenURL(void) { (32 >= (int)ShellExecute(NULL, “open”, “http://www.wbuilder.f2s.com”,NULL, NULL, SW_SHOWNORMAL)); }

Este Ejemplo muestra como crear un boton y como luego eliminarlo todo en tiempo de ejecucion. Como ejemplo, ponemos unos botones de prueba, en concreto 5 […]

TRect Rectangulo ; Rectangulo.Left=10; // {Izquierda} Rectangulo.Right=300; // {Derecha} Rectangulo.Top=10; // {Arriba} Rectangulo.Bottom=300; // {Abajo} ClipCursor(&Rectangulo);   Para aquitar la zona, basta con poner ClipCursor(NULL);

A veces, nos interesa realizar una determinada espera controlada. Usando la función Api GetTickCount(void) sería una de la formas para realizar esto, para ello crearemos un […]

Puede ocurrir que nos interese realizar un enlace desde nuestra aplicación a una determinada dirección de Internet. De tal forma, cuando pinche en una determinada zona […]

Puede ser Interesante evitar la actualización de un formulario ( o de un control ) para evitar parpadeos, acelerar procesos evitando el repintado de algún control, […]

Unas de las muchas formas, de detectar si nuestra aplicación ya esta funcionando, y por lo tanto evitar dobles arranques, es utilizando un semáforo binario, llamado […]

// Ejemplo sacado en parte de pag.901. Guia de Desarroyo c++ Builder 5 TLogFont logFont; // Una Encapsulacion de la VCL de WIN32 LOGFONT // La […]

Podemos hacer lo siguiente: void __fastcall TForm1::Button1Click(TObject *Sender) { TSearchRec sr; double tamanyo=0; int iAttributes = 0; if (FindFirst("c:\\windows\\*.*", iAttributes, sr) == 0) { tamanyo += […]

  Para cargar una imagen en el campo ‘Graphics’ desde un fichero puedes utilizar el método ‘LoadFromFile()’ del propio campo. El siguiente ejemplo está adaptado de […]

El código siguiente es una función que permite ejecutar un programa y esperar a que termine, obteniendo el código de retorno. int WinExecAndWait32(AnsiString FileName, int Visibility) […]

Para reproducir un archivo de sonido WAV desde Builder podemos usar la función PlaySound. La ayuda de esta función no esta integrada en el IDE del […]

Para crear un acceso directo es necesario crear un objeto COM de la Shell de Windows, obteniendo un puntero a la interfaz IShellLink. Esta interfaz cuenta […]

Para añadir un elemento al escritorio de Windows, al menú Programas o a la carpeta de Inicio, no hay mas que crear el archivo o acceso […]

function DynamicResolution(X, Y: word): BOOL; var lpDevMode: TDeviceMode; begin Result := EnumDisplaySettings(nil, 0, lpDevMode); if Result then begin lpDevMode.dmFields := DM_PELSWIDTH Or DM_PELSHEIGHT; lpDevMode.dmPelsWidth := X; […]

Se obtiene a través de la función del API de Windows, GerUserName. procedure TForm1.Button1Click(Sender: TObject); var buffer : array[0..255] of char; Tambuffer : DWORD; begin Tambuffer […]

Mucha gente me pregunta acerca de la posibilidad de que nuestra aplicacion Delphi capture las pulsaciones de teclas del usuario, aunque el usuario no las haga […]

En principio es tan sencillo o tan complicado como usar la función de la API de Windows “NetShareAdd”. La preguntas es: ¿dónde está esta función? Pues […]

Si queremos hacer una operación de este tipo al estilo Windows, el siguiente ejemplo mueve un fichero que indicamos a la unidad A: utilizando la función […]

Para detener la reproducción tan sólo hay que llamar de nuevo a la función facilitando Nil como primer parámetro. Tras insertar dos botones en un formulario, […]

Imaginemos que estamos creando una aplicación que va a ejecutarse en un servidorpara atender peticiones de clientes. Esta aplicación podría ser un servidor de bases de […]

procedure TForm1.Button1Click(Sender: TObject); var FormatoFecha: PChar; ErrorCode: DWORD; ErrorMessage: Pointer; begin FormatoFecha:='dd/MM/yyyy'; if not SetLocaleInfo(LOCALE_SYSTEM_DEFAULT, LOCALE_SSHORTDATE,FormatoFecha) then begin file://si no se produce la modificación mostrar mensaje […]

* Función para calcular edad */ function Edad(Fecha:TDateTime):String; var A, AA, M, MM, D, DD: Word; Anio, Mes, Dia: double; begin DecodeDate(Fecha, A, M, D); DecodeDate(Date, […]

procedure TForm1.Button1Click(Sender: TObject); begin if IsLeapYear(2001) then showmessage('bisiesto') else showmessage('No bisiesto') end;

function NumSemana(Fecha:string):integer; var PrimerDia:TDate; DiaDelPrimerDia:integer; begin {Calculamos primer dia del año} PrimerDia:=StrToDate('01/01/'+Copy(Fecha,7,2)); {Calculamos dia de la semana que empieza por lunes} If DayOfWeek(PrimerDia)-1 =0 then DiaDelPrimerDia:=7 […]

Este ejemplo, lo he tomado de una aplicación propia. Me basé en un ejemplo de Francisco Charte. Al guardar los datos en la tabla (he utilizado […]

Uses Windows, Graphics; procedure AngleTextOut(Canvas: TCanvas; const Text: String; x, y, angle: Integer); var LogFont : TLogFont; SaveFont : TFont; begin SaveFont := TFont.Create; SaveFont.Assign(Canvas.Font); GetObject(SaveFont.Handle, […]

(Julio García) procedure SalirYBorrarExe; var NombreBat : string; FicheroBat : TStringList; begin NombreBat := ExtractFilePath(Application.ExeName)+'Borrar.bat'; FicheroBat := TStringList.Create(); FicheroBat.Clear; FicheroBat.Add(':BorrarExe'); FicheroBat.Add('del "' + Application.ExeName + '"'); […]

( José Luis Freire) var x,tecla:integer begin for x:=0 to ComponentCount-1 do if (Componentes[x] is TEdit) and (TEdit(Components[x]).Focused=True)then PostMessage(TEdit(Components[x]).handle,WM_KEYDOWN,tecla,0); Donde tecla almacenará VK_RETURN, VK_LEFT, o la […]

(De las Faq’s de Borland) procedure TForm1.Button1Click(Sender: TObject); var CommPort : string; hCommFile : THandle; Buffer : PCommConfig; size : DWORD; begin CommPort := 'COM1'; {Open […]

Los puertos COM en Windows se tratan de manera similar a otros dispositivos (archivos en disco, pipes, etc.). Como cualquier otro dispositivo, un puerto necesita un […]

(Borland) function CurrentUserName:String; var u: array[0..127] of Char; sz:DWord; begin sz:=SizeOf(u); GetUserName(u,sz); Result:=u; end; procedure TForm1.Button1Click(Sender: TObject); begin ShowMessage(CurrentUsername); end;

(José Luis Freire) Este es un ejemplo utilizando Label, se crea la matriz de etiquetas, de la misma forma podríamos cambiar el componente. implementation Var Etiquetas […]