Foro: Varios
27-06-2005
|
|
Respuestas: 5
Visitas: 3.981
|
|
Foro: Varios
27-06-2005
|
|
Respuestas: 5
Visitas: 3.981
Formulario no visible abajo en la barra de tareas
mi idea es hacer correr por la pantalla un gif animado y mi problema es que mientras está en ejecución se queda abajo en la barra de tareas el caption del formulario (algo normal en los programas)....
|
|
Foro: API de Windows
26-06-2005
|
|
Respuestas: 2
Visitas: 10.701
Solucion
A continuación el código fuente:
unit Unit1;
interface
uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, DDEman, StdCtrls;
|
|
Foro: API de Windows
25-06-2005
|
|
Respuestas: 2
Visitas: 10.701
|
|
Foro: API de Windows
24-06-2005
|
|
Respuestas: 2
Visitas: 10.701
Obtener URL en mozilla/firefox
¿ Existe forma de saber que páginas esta visitando un usuario que tiene mozilla/firefox?
Con IE si lo encontre pero con otros navegadores no he tenido suerte.
¿ Alguna idea ? Gracias. :)
|
|
Foro: Varios
17-06-2005
|
|
Respuestas: 7
Visitas: 4.536
|
|
Foro: Varios
17-06-2005
|
|
Respuestas: 7
Visitas: 4.536
Nada, no hay manera de hacer una funcion que...
Nada, no hay manera de hacer una funcion que devuelva un TMemo1. :(
Ni lo mas simple funciona : Memo2 es un memo en el formulario con datos.
Lo que sucede es que memo1 no se llena con los datos del...
|
|
Foro: Varios
17-06-2005
|
|
Respuestas: 7
Visitas: 4.536
Esa opción ya la habia probado y nada :(
el...
Esa opción ya la habia probado y nada :(
el error que me sale ahora es : project2.exe raises exception class EinvalidOperation with message control has no parent windows. Proccess stopped.
El...
|
|
Foro: Varios
17-06-2005
|
|
Respuestas: 7
Visitas: 4.536
donde está el error? :S
Tengo el siguiente codigo y el mensaje de error es el siguiente : Incompatible tipos string y TMemo
procedure TForm1.Button3Click(Sender: TObject);
begin
memo2.text:=obtenermemo;
end;
...
|
|
Foro: Varios
12-06-2005
|
|
Respuestas: 1
Visitas: 2.659
|
|
Foro: Varios
26-05-2005
|
|
Respuestas: 4
Visitas: 3.231
Solucion
procedure TForm1.Button2Click(Sender: TObject);
var
n : integer;
start:integer;
begin
// Busca el Texto
start:=Length(RxRichEdit1.Text);
RxRichEdit1.Lines.add('hola :D soy yo :D');
...
|
|
Foro: Varios
26-05-2005
|
|
Respuestas: 4
Visitas: 3.231
Casi lo tengo
En un RxRichEdit1 tengo el texto--> hola :D saludos :D
Ya consigo reemplazarlo todas las :D por imagenes. Ahora quisiera saber como puedo copiar este RxRichEdit1 al final de otro RxRichEdit1 que ya...
|
|
Foro: Varios
26-05-2005
|
|
Respuestas: 4
Visitas: 3.231
tampoco me sirve
Tampoco me sirve, mi idea es :
Añadir al final de un RxRichEdit la siguiente linea : prueba [imagen] hola
Hasta el momento solo lo he conseguido con líneas separadas.
procedure...
|
|
Foro: Varios
25-05-2005
|
|
Respuestas: 4
Visitas: 3.231
Insertar al final de RichEdit
Quiero insertar al final del RichEdit un caracter.
He visto en uno de los hilos lo siguiente, pero no me sirve
ya que el RichEdit1 mio tiene tambien imágenes incrustadas.
Si consigo la solución os...
|
|
Foro: Varios
25-05-2005
|
|
Respuestas: 8
Visitas: 3.111
|
|
Foro: Varios
25-05-2005
|
|
Respuestas: 8
Visitas: 3.111
Otra solucion
Gracias marcos por tu aportación. Al final lo conseguí sacar con un codigo mucho mas largo, luego lo modicaré usando tu instrucción. Por si alguno le interesa otra forma de hacerlo menos optima es la...
|
|
Foro: Varios
25-05-2005
|
|
Respuestas: 8
Visitas: 3.111
Ahora ya tan sólo me falta saber el color
procedure TForm1.SelectFont(Sender :TObject);
begin
FontDialog1.Font.Assign(RichEdit1.SelAttributes);
if (FontDialog1.Execute) then
begin
// RichEdit1.SelAttributes.Assign(...
|
|
Foro: Varios
25-05-2005
|
|
Respuestas: 8
Visitas: 3.111
obtener color de FontDialog1
La idea es conseguir el codigo de color, si está en negrita, si está en cursiva y el tamaño de la letra de un FontDialog1. Solo consigo el nombre de la fuente con la orden...
|
|
Foro: Varios
25-05-2005
|
|
Respuestas: 1
Visitas: 1.685
solucion
procedure TForm1.Button1Click(Sender: TObject);
begin
RxRichEdit1.HideSelection:=false;
RxRichEdit1.lines.add(edit1.text);
end;
|
|
Foro: Varios
25-05-2005
|
|
Respuestas: 1
Visitas: 1.685
|
|
Foro: Varios
23-05-2005
|
|
Respuestas: 5
Visitas: 2.543
La modifique tal y como me dijistes a mis...
La modifique tal y como me dijistes a mis necesidades y funciona perfectamente. Es lo que deseaba. Muchiisimas gracias. :)
procedure TNetDrive.GetDriversList(StrList: TStringList);
var
...
|
|
Foro: Varios
23-05-2005
|
|
Respuestas: 5
Visitas: 2.543
|
|
Foro: Varios
23-05-2005
|
|
Respuestas: 5
Visitas: 2.543
si no pongo el parent me da el error que os...
si no pongo el parent me da el error que os puse.
Lo que deseo es cargar en un TStringList las unidades que tengo (a:, c:, ...)
La idea que me distes de usar BuildList, la verdad es que ando un...
|
|
Foro: Varios
23-05-2005
|
|
Respuestas: 5
Visitas: 2.543
error : has no parent windows
Tengo una unidad y un formulario principal.
En la unidad tengo el siguiente codigo :
function TNetDrive.FreeDriveName: string;
var
l : TStringList;
d : TDriveComboBox;
t : char;
i :...
|
|
Foro: Varios
19-05-2005
|
|
Respuestas: 6
Visitas: 5.168
solucion
Al final di con la solución :
function EnumProcess(hHwnd: HWND;lParam : integer): boolean; stdcall;
var
pPid : DWORD;
title, className : string;
i:integer;
name:string;
begin
...
|
