Hi,

Dass die Tform eine Eigenschaft Color hat und wie Man die setzt, dass ist mir bekannt.
Nur: wie und wo kann ich die Farbe ändern, wenn die forms Modal angezeigt werden?

Z.B. im OnShow/onCreate-Event des Formuals

Oder halt zwischen dem Aufruf von Create() und ShowModal() die entsprechenden Properties setzen.

2 Forms mit jeweils 1 Button. ButtonClick öffnet andere Form modal. Es wird also nicht geschlossen (also auch OnClose un brauchbar). Nur: wo jetzt ansetzen? Form2 hat jetzt den Focus und nicht mehr die aufrufende Form und das soll man sehen.

Was hälst du denn von OnActivate und OnDeactivate ? Sollte das bringen was du vorhast... Im OnActivate setzt du die aktiv Farbe und im OnDeaktivate die inaktiv Farbe. Und das für jede Form einzeln...

JJa genau, so soll das laufen, aber das geht nur bei Show. Ersetze das mal durch showmodal

Ich hätte kurz etwas funktionierendes zusammenhackt, ob das für Dich passt, keine Ahnung

ein Template für alles ...

zusammenfalten · markieren

Delphi-Quellcode:

unit Templatep;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs;

type
  TTemplate = class(TForm)
  private
    { Private-Deklarationen }
  public
    { Public-Deklarationen }
    Destructor Destroy;override;
  end;

var
  Template: TTemplate;

implementation
uses Main;
{$R *.dfm}

{ TTemplate }

destructor TTemplate.Destroy;
begin
  Mainform.RemoveLastActive(self);
  inherited;
end;

end.

ein Mainform auch von Template abgeleitet

zusammenfalten · markieren

Delphi-Quellcode:

unit Main;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls,Templatep;

type
  TMainform = class(TTemplate)
    Button1: TButton;
    Edit1: TEdit;
    procedure Button1Click(Sender: TObject);
    procedure FormCreate(Sender: TObject);
  private
    FLastActiveForm:TTemplate;
    procedure ActiveFormInform(Sender: TObject);
    { Private-Deklarationen }
  public

    { Public-Deklarationen }
    Procedure RemoveLastActive(F:TTemplate);
  end;

var
  Mainform: TMainform;

implementation

{$R *.dfm}

procedure TMainform.ActiveFormInform(Sender:TObject);
begin
   if Assigned(FLastActiveForm) then FLastActiveForm.Color := clSilver;
   if Screen.ActiveForm is TTemplate then
      begin

       FLastActiveForm := TTemplate(Screen.ActiveForm);
       FLastActiveForm.Color := clBlue;
      end;
end;

procedure TMainform.FormCreate(Sender: TObject);
begin
   Screen.OnActiveFormChange := ActiveFormInform;
end;


procedure TMainform.RemoveLastActive(F: TTemplate);
begin
  if F=FLastActiveForm then FLastActiveForm := nil;

end;

procedure TMainform.Button1Click(Sender: TObject);
begin
   Template.ShowModal;

end;




end.