Ver Mensaje Individual
  #9  
Antiguo 19-07-2004
JoseQ JoseQ is offline
Miembro
 
Registrado: jul 2004
Posts: 167
Reputación: 20
JoseQ Va por buen camino
weno, y yo sigo con mi pequela rallada, al final e decidido cargar la imagen con shellexecute, i confiando q el usuario tenga definido x defecto el PhotoEditor como programa para abrir las imagenes, e puesto el siguiente codigo:

Código Delphi [-]
procedure TModuloImagenes.Photoedi(Sender: TObject);
var editor:tsearchrec;
begin
with sender as timage do
begin
if FindFirst(photoed,0,editor) = 0 then
shellexecute(handle,'open',pchar(hint),nil, nil, SW_SHOW) else
showmessage('No se encuentra el PhotoEditor');
end;
end;
ahora mi problema es que relaciono este procedimiento con los Timage de mi programa, xo no funcionan, solo funciona el Image1, los demas no ace nada, ni tan sikiera entra el procedimiento, alguna sugerencia ?=????



mmmmm, weno, ia solucione esto , un pekeño consejo no intenten acer 15 cosas a la vez, xk fallaran en 16 tonterias

Última edición por JoseQ fecha: 19-07-2004 a las 11:50:11.
Responder Con Cita