[DELPHI] Cambio colore del Font su evento del mouse

[vicky]

Ciao!
Sto cercando di ottenere i tipici effetti HTML sui link, quindi effetto hover, visited...etc.
Nel form però non ho una web browser bensì un componente memo.
Per l'effetto hover ho sfruttato gli eventi onMouseEnter ed onMouseLeave.
Per l'effetto visited uso l'evento onClick ma non funziona. Quando clicco sul memo passo ad un altro form tramite i comandi Show e Hide (form2.show e form1.hide)
Eppure il memo non mantiene il colore che cerco di assegnargli nell'evento onClick quando torno nel form che lo contiene.
Ci può essere un motivo?

[alka]

Riporta il codice, così lo analizziamo per sicurezza.

[vicky]

Grazie, ecco qua:

procedure TformIndice.Memo1Click(Sender: TObject);
begin
  formGalleria.Immagini.Close;
  formGalleria.Immagini.DataSet.CommandText:='SELECT TH_ID,TH_DIDA,TH_NAME,TH_SEGNATURA,INDICE_TITOLO FROM TB_THUMB JOIN TB_INDICE ON TB_THUMB.TH_INDICE=TB_INDICE.INDICE_ID WHERE TH_INDICE = 1 ORDER BY TH_ID ASC';
  formGalleria.Immagini.Open;
  formGalleria.Show;
  formgalleria.ScrollBox1.VertScrollBar.Position:= 0;
  memo1.Font.Color:=$000000cc;
  formIndice.Hide;
end;

procedure TformIndice.Memo1MouseEnter(Sender: TObject);
begin
 memo1.Font.Color:=$000000cc;
end;

procedure TformIndice.Memo1MouseLeave(Sender: TObject);
begin
memo1.Font.Color:=$00000082;
end;

[vicky]

Aggiungo il codice che mi riporta nella form che contiene il controllo memo:

procedure TformGalleria.lblIndiceClick(Sender: TObject);
begin
  formIndice.Show;
  formGalleria.Close;
end;

Il colore del testo contenuto nel controllo memo lo imposto, quando creo il form la prima volta, solo a design time.

[alka]

Originariamente inviato da vicky
Eppure il memo non mantiene il colore che cerco di assegnargli nell'evento onClick quando torno nel form che lo contiene.

A giudicare dal codice, tu imposti il colore all'interno degli eventi che hai intercettato, quindi se lo imposti a un determinato colore sul Click, questo colore viene resettato quando vai sul controllo in MouseEnter ed esci in MouseLeave.

Devi memorizzare da qualche parte lo stato di questo controllo (visitato oppure no) e ripristinarlo all'uscita di MouseEnter/MouseLeave.

[vicky]

Ho capito cosa intendi...forse potrei fare un if quando mostro il form in modo che se se il colore del testo è quello modificato (perché già cliccato) il mouse non abbia effetto.

[alka]

Originariamente inviato da vicky
Ho capito cosa intendi...forse potrei fare un if quando mostro il form in modo che se se il colore del testo è quello modificato (perché già cliccato) il mouse non abbia effetto.

Dovresti memorizzare lo stato di "visitato" in un campo del Form e, in base a questo stato, quando è necessario impostare il colore in MouseLeave, si può scegliere quello relativo allo stato memorizzato.

[vicky]

...memorizzare lo stato di visitato in un campo del form...
mi vergogno un po' a dirlo ma non ci riesco proprio.

[alka]

Originariamente inviato da vicky
...memorizzare lo stato di visitato in un campo del form...
mi vergogno un po' a dirlo ma non ci riesco proprio.

Sarebbe sufficiente mettere una variabile nella sezione private del Form, di tipo Boolean:

TForm1 = class (TForm)
private
  FVisited: Boolean;
  // ...
end;

e valorizzarla in base alla condizione, andandola poi a verificare per sapere quale colore predefinito attribuire al controllo.

Ciao!

[vicky]

Grazie davvero!