(Resolvido) Alterar Imagem Formulário

[flavioavilela]

galera, é o seguinte:

em meu sistema, tem uma tela de Menu Geral, que é a tela principal do programa.. gostaria que, assim que a pessoa desse dois cliques no IMAGE que está lá, abrisse uma janela pra pessoa escolher uma imagem e colocar lá... e, sempre que ela saisse do sistema e logasse novamente, estivesse aquela imagem que ele(a) colocou por último, como se fosse um papel de parede do windows....

estou utilizando como banco de dados sqlserver e query da paleta BDE...

desde já, agradeço a ajuda de todos...

[Jhonas]

meu sistema, tem uma tela de Menu Geral, que é a tela principal do programa.. gostaria que, assim que a pessoa desse dois cliques no IMAGE que está lá, abrisse uma janela pra pessoa escolher uma imagem e colocar lá... e, sempre que ela saisse do sistema e logasse novamente, estivesse aquela imagem que ele(a) colocou por último, como se fosse um papel de parede do windows....

Uma maneira de se fazer isto:

procedure TForm1.Image1DblClick(Sender: TObject);
var
  F: TextFile;
  S: string;
begin
   if OpenPictureDialog1.Execute then
      begin
        S := OpenPictureDialog1.FileName;

       AssignFile(F, 'C:\IMAGEM\PLANO.TXT');
       Rewrite(F);
       Writeln(F, S);
       CloseFile(F);

       Image1.Picture.LoadFromFile(OpenPictureDialog1.FileName);
      end;
end;

procedure TForm1.FormActivate(Sender: TObject);
var
  F: TextFile;
  S: string;
begin
  if FileExists('C:\IMAGEM\PLANO.TXT') then
     begin

        AssignFile(F, 'C:\IMAGEM\PLANO.TXT');
        Reset(F);
        Readln(F, S);
        CloseFile(F);

        Image1.Picture.LoadFromFile(S);
     end;
end;

OBS: Use o componente OpenPictureDialog para selecionar a imagem que voce quer usando

o evento OnDblCick do componente Image que esta no Menu.

Ao escolher a imagem, o caminho da mesma, será salvo em um arquivo TXT e a mesma será exibida pelo Image.

Ao logar novamente o programa, será lido o arquivo TXT onde ficou armazenado o caminho para a imagem, e será exibida a ultima imagem salva.

abraço

[flavioavilela]

beleza meu lider... funfou beleza...

vlw demais pela ajuda...