Questo blog non rappresenta una testata giornalistica in quanto viene aggiornato quando posso senza nessuna periodicità predefinita (non può pertanto essere considerato un prodotto editoriale ai sensi della Legge n°62 del 7 marzo 2001).

Scroll di un TMemo ad una determinata linea

Autor admin | 26.06.2008 | Category delphi

Questa semplice procedura permette di posizionare lo scroll di un TMemo alla riga desiderata:

procedure MemoScrollToLine(Memo: TMemo; Line: Integer) ;
var
ScrollMessage:TWMVScroll;
i:integer;
begin
ScrollMessage.Msg:=WM_VSCROLL;
ScrollMessage.ScrollCode:=SB_TOP; // Settiamo lo scroller per posizionarsi all’inizio
ScrollMessage.Pos:=0;
mmRAM.Dispatch(ScrollMessage); // Spostiamo lo scroll del memo alla prima linea
ScrollMessage.ScrollCode:=SB_LINEDOWN; // Settiamo lo scroller per scorrere una riga in basso
for I:=0 to Line-1 do
mmRAM.Dispatch(ScrollMessage); //Scorriamo in basso fino alla linea desiderata
end;

Cambiare la directory predefinita “Projects” in Delphi…

Autor admin | 05.06.2008 | Category delphi

…è molto più semplice di quanto si possa immaginare!!

Tasto destro sul collegamento a Delphi, e Proprietà.

Modificare il contenuto del campo “Da:” inserendo il percorso della nuova cartella Projects…

Show Balloon in System Tray

Autor admin | 21.02.2008 | Category delphi

Nel file allegato trovate una unit Delphi molto utile se in un programma si vuole utilizzare l’icona in System Tray e gestire anche i messaggi via Balloon senza installare componenti dedicati…

La unit l’ho trovata in giro per la rete, citerei volentieri l’autore ma proprio non me lo ricordo, la posto quà appunto per trovarla facilmente la prossima volta che mi servirà. Se qualcuno vuole rivendicarne la paternità è ben accetto…

ShowBalloonSystemTray