[DELPHI 6] Form Mobile anche senza bordo

[supernibbio]

Ho bisogno di creare un programma costituito da una sola form, la quale dev'essere senza bordo e quindi senza la barra blu superiore che permette di spostarla...
Al suo posto ho creato una barra con un'immagine ma non so come fare per fare in modo che trascinanado la form con il mouse, questa si sposti (appunto perché manca la barra superiore)...

Oltre a questo ho bisogno di sapere quale codice devo allegare al pulsante per la riduzione ad icona (che devo creare io, non essendoci la barra)...


Grazie in Anticipo a chiunque cerchi di aiutarmi..

[alka]

Prova ad aggiungere un metodo di ricezione messaggi al form in questo modo:

type
  TForm1 = class(TForm)
  private
  protected
    procedure WndProc(var Msg: TMessage); override;
  public
  end;

Nell'implementazione del metodo, scrivi

procedure TForm1.WndProc(var Msg: TMessage);
begin
  inherited WndProc(Msg);
  with Msg do
    if (Msg = WM_NCHitTest) and (Result = htClient) then
      Result := htCaption;
end;

In questo modo, facendo clic con il mouse e muovendolo nell'area client del form, otteniamo il trascinamento del form. Ovviamente, non funziona quando trasciniamo il mouse all'interno di altri controlli.

Ciao!

[supernibbio]

Funziona ma io avevo delle immagini che fungevano da pulsanti e che al passaggio del mouse cambiavano colore attraverso gli eventi OnMouseup e OnClick, mentre ora fanno tutt'uno con lo sfondo (anch'esso costituito da una immagine) e muovono la finestra... come si può ovviare e inoltre

qual'è il codice per ridurlo in basso e/o nella system tray...???

[alka]

Puoi trovare componenti che fanno al caso tuo nel sito Torry Delphi's Pages. Contiene migliaia di componenti ed esempi suddivisi per categoria.
Sistemare un'applicazione nel system tray non è un'operazione da riga singola di codice! Tuttavia, nel sito che ti ho indicato, troverai anche componenti che ti permettono di fare questo.

Ciao!

[supernibbio]

Riprendo la discussione perché nn sono ancora riuscito a fare in modo che su alcune immagini funzioni l'evento OnClick in modo da farle funzionare come dei pulsanti...

Credo che non sia difficile fare qualcosa del genere (per me lo è però), e credo che si possa risolvere anche limitando l'area di trascinamento alla sola parte superiore...

Fatemi Sapere...

(Sul sito ho trovato molte cose interessanti ma non quello che cercavo)