Form modale

[Simon75]

Salve a tutti,  vorrei sapere come si rende una form modale.

Attualmente la quando clicco fuori dalla form la finestra di dialogo finisce sotto, vorrei evitare questo.

Avete qualche esempio?

Saluti

[Stilgar]

Codice: [Seleziona]

xxx.showModal;

[xinyiman]

Il buon Stilgar ha già detto tutto

[Simon75]

Grazie,

Ma vorrei capire se le TOpenDialog e le TSaveDialog sono Modali.

Sinceramente non riesco a renderle modali.

Ciao

Codice: [Seleziona]

function ApriSaveDialog: ShortString;
  var
    Dlg: TFileDialog;

  begin
    Result := '';
    Dlg := TSaveDialog.Create(nil);
    try
      Dlg.DefaultExt := 'txt';
      Dlg.Filter := '*.txt';
      if Dlg.Execute then
        Result := Dlg.FileName
      else
        Result := '';
    finally

      FreeAndNil(Dlg);
    end;
  end;

  function ApriOpenDialog: ShortString;
  var
    Dlg: TFileDialog;

  begin
    Result := '';
    Dlg := TOpenDialog.Create(nil);
    try
      Dlg.DefaultExt := 'txt';
      Dlg.Filter := '*.txt';
      if Dlg.Execute then
        Result := Dlg.FileName
      else
        Result := '';
    finally

      FreeAndNil(Dlg);
    end;
  end;       

[nomorelogic]

TOpenDialog e TSaveDialog sono modali.
Vuol dire che finché non hai chiuso quel dialogo l'applicazione principale è in stand-by e non puoi neanche accedere alle sue altre finestre.

Che comportamento vorresti ottenere che invece non hai?

[Simon75]

Vorrei ottenere il comportamento che hai menzionato te, invece non avviene e quando clicco fuori dalla finestra di dialogo che sia Topen o Tsalva la finestra di dialogo si nasconde sotto il programma in uso e vorrei evitare questo.

[Stilgar]

Per essere modale, una qualsiasi finestra, deve sapere chi è l'applicazione che la sta eseguendo.

Codice: [Seleziona]

Dlg := TOpenDialog.Create(nil);

Gli stai togliendo la possibilità di diventare modale se metti un nil come "owner". Non riesce a risalire all'applicazione in questa maniera.
Devi trovare il modo di ottenere quella che in c++ viene passato come hInstance al winmain.
Poi procediamo con gli altri passi.
ps: essendo una dll quella che stai creando tu (vado a memoria) la cosa diventa un attimino più ingarbugliata, ma cerca nella documentazione.

Stilgar

[Simon75]

Sulla documentazione non è spiegato niente, ho contattato via email il produttore del software mi ha detto di togliere 

Codice: [Seleziona]

 dlg.execute()

  e mettere al suo posto

Codice: [Seleziona]

dlg.showModal() 

  Mi ha scritto che non è sicuro ma di provare, andiamo bene

Ma l'errore che indica è:  itel.lpr(97,14) Error: identifier idents no member "showModal"

[Stilgar]

Dialog non ha showModal.
E' un wrapper alle "classi" windows.
Ha solo il metodo execute che può tornarti utile.

Hai cercato come lavorare con la DLLProc ?

Stilgar

[Stilgar]

Allora, ho fatto una piccola indagine.
DLLProc su FreePascal è un casino.
C'è parecchia gente che si lamenta nel porting da Delphi a Lazarus.

Cambiamo approccio.

Codice: [Seleziona]

library project1;

{$mode objfpc}{$H+}

uses
  Classes,
  Windows,
  Forms, Interfaces, InterfaceBase, FormProva;

var
  HInstance : THANDLE;
begin
  HInstance:=  GetModuleHandle(nil);
  WidgetSet.AppHandle:= HInstance;
  Application.Initialize;
  Application.CreateForm(TForm1,Form1);
  Form1.ShowModal;
end.     

Prova a vedere se questo codice di boostrap della dll può esserti d'aiuto.

Si basa sul fatto che "GetModuleHandle(nil)" resituisca l'handle dell'eseguibile e non della dll.

FormProva è una form a caso, se ne hai ...

Stilgar

EDIT :
bootstrap e non boostrap

Stilgar

[Simon75]

Dammi una mano a comporre il tutto

[Stilgar]

Do# Fa La Sol#
Va bene?