Delphi - Memorizzare note in TMemo

già, è un problema di visualizzazione dato che se la avvio parte perfettamente tantè che visualizzo nella tray area l'icona del programma, però non vedo la form sul desktop ed inoltre mi da sempre lo stesso messaggio che non trova il file note.txt...!! Invece installando il programma in un altro pc sempre cn Win xp va tutto liscio come l'olio...!! ok posto tutto:

uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, StdCtrls, ComCtrls, ImgList, jpeg, ExtCtrls, CoolTrayIcon,
OleServer, Outlook2000, Buttons;

type
TForm1 = class(TForm)
Memo1: TMemo;
Image1: TImage;
Label1: TLabel;
Label2: TLabel;
CoolTrayIcon1: TCoolTrayIcon;
SpeedButton1: TSpeedButton;
Timer1: TTimer;
procedure Label1Click(Sender: TObject);
procedure Label2Click(Sender: TObject);
procedure CoolTrayIcon1Click(Sender: TObject);
procedure Image1MouseDown(Sender: TObject; Button: TMouseButton;
Shift: TShiftState; X, Y: Integer);
procedure FormActivate(Sender: TObject);
procedure FormCreate(Sender: TObject);
procedure Memo1Change(Sender: TObject);
procedure Timer1Timer(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;

var
Form1: TForm1;
note: string;

implementation

{$R *.dfm}

procedure TForm1.Label1Click(Sender: TObject);
begin
close;
end;

procedure TForm1.Label2Click(Sender: TObject);
begin
form1.Hide;
end;

procedure TForm1.CoolTrayIcon1Click(Sender: TObject);
begin
form1.Show;
end;

procedure TForm1.Image1MouseDown(Sender: TObject; Button: TMouseButton;
Shift: TShiftState; X, Y: Integer);
const
SC_DRAGMOVE = $F012;
begin
if Button = mbleft then
begin
ReleaseCapture;
Form1.Perform(WM_SYSCOMMAND, SC_DRAGMOVE, 0);
end;
end;

procedure TForm1.FormActivate(Sender: TObject);
begin
ShowWindow(Application.Handle, SW_HIDE);

end;


procedure TForm1.FormCreate(Sender: TObject);
begin
memo1.Lines.LoadFromFile('/…');
end;

procedure TForm1.Memo1Change(Sender: TObject);
begin
Timer1.Enabled := false;
Timer1.Enabled := True;
end;

procedure TForm1.Timer1Timer(Sender: TObject);
begin
timer1.Enabled:=false;
memo1.Lines.SaveToFile('c:\note.txt');
end;

end.

ciao e grazie

mmmm sei sicuro che è tutto il codice???

cmq questa riga qua mi sembra sospetta

procedure TForm1.FormActivate(Sender: TObject); 
begin
ShowWindow(Application.Handle, SW_HIDE);

end;

hide non significa nascondere??? potrebbe essere questa la causa del fatto che non ti si vede la form...

a che serve questa riga nell'evento on activate?

ciao, si è tt il codice, mancava solo:

unit Unit1;
interface.

quella riga a cui fai riferimento serve per non fare vedere l'applicaz nella barra delle applicazioni, e farla vedere invece solo nella tray area...però è strano: come ti dicevo in altri pc funziona perfettamente...

A me non parte perchè non trova il file CoolTrayicon.dcu, però se tolgo la scritta Cooltryicon dalle uses, dopo parte e la form si vede....

potrei sempre togliere quel codice ma cosi facendo l'applicazione non mi spunta nella tray area ed invece è quello che a me serve...conosci altri metodi per visualizzare l'applicazione nella tray area?
ciauz

no... non centra... a me non parte perchè mi manca un file al momento della compilazione... ma se su un altro computer quando fai partire l'eseguibile non ti si vede la form a sto punto non so che dirti... nel codice che hai postato nn c'è nulla...


p.s. i colori non centrano niente...

caspita che svista!! sai perchè non vedevo l'applicazione?? perchè usciva fuori dal monitor, cioè era troppo esterna!!
mhà...che sbadato!!
ciao e grazie

lol...