26 giugno 2008 IronX.net
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;
Scritto in delphi | Nessun Commento »
5 giugno 2008 IronX.net
…è 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…
Scritto in delphi | Nessun Commento »
21 febbraio 2008 IronX.net
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
Scritto in delphi | Nessun Commento »