was ist neu ¦  programmier tips ¦  indy artikel ¦  intraweb artikel ¦  informationen ¦  links ¦  interviews
 sonstiges ¦  tutorials ¦  Add&Win Gewinnspiel

Tips (1541)

Dateien (137)
Datenbanken (90)
Drucken (35)
Grafik (114)
IDE (21)
Indy (5)
Internet / LAN (130)
IntraWeb (0)
Mathematik (76)
Multimedia (45)
Oberfläche (107)
Objekte/
ActiveX (51)

OpenTools API (3)
Sonstiges (126)
Strings (83)
System (266)
VCL (242)

Tips sortiert nach
Komponente


Tip suchen

Tip hinzufügen

Add&Win Gewinnspiel

Werbung

30 Visitors Online


 
...Komponenten während der Laufzeit maximieren/minimieren/schliessen?
Autor: Babak Sateli
Homepage: http://www.cdcenterco.com
[ Tip ausdrucken ]  

Tip Bewertung (4):  
     


{

 This program try to show something at least interesting about those components
 on the form. You'll see that by the fact they're descendant of TWinControl they
 can react like a Window. I mean they can be maximized, minimized and so on.
 If you see a control that not respond to our commands it's because it doesn't
 descend from TWinControl. I didn't try to deal with them. Well. I believe this
 program is an open door to great ideas. There's a lot of components that could
 take advantages of this to manipulate controls on the form. You know a long journey
 starts on the first step. Here it is.
 Show me anything great you could do out of these ideas.
 Good work.

 Babak Sateli
 babak_sateli@yahoo.com

}


unit MessComps;

interface

uses
  
Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
  StdCtrls, Menus, ExtCtrls;

type
  
TMessing = class(TForm)
    Menu: TMainMenu;
    Options: TMenuItem;
    Minimize: TMenuItem;
    Restore: TMenuItem;
    Hide: TMenuItem;
    Show: TMenuItem;
    N2: TMenuItem;
    Close: TMenuItem;
    Exit_: TMenuItem;
    CloseProgram: TMenuItem;
    Maximize: TMenuItem;
    Memo: TMemo;
    Move: TMenuItem;
    ChangeSize: TMenuItem;
    N1: TMenuItem;
    N3: TMenuItem;
    Target: TMenuItem;
    procedure Procede(Sender: TObject);
    procedure TargetClick(Sender: TObject);
  end;

var
  
Messing: TMessing;
  n: Integer;
  AllOfThem: Boolean = True;

implementation
{$R *.DFM}

procedure TMessing.Procede(Sender: TObject);
var
  
n, Tag: Integer;
  T: TComponent;
  ParentClass: TClass;
  OkToProcede: boolean;
  Comando: Word;
  HasTheFocus: Boolean;
begin
  
// As the menu itens do pratically the same thing we directed them all to here.
  // Their tag properties are different so we could know who called us.
  // Save this. We'll need it
  
Tag := (Sender as TMenuItem).Tag;
  case (Sender as TMenuItem).Tag of
    
// Oh! You just click options but you're already here. You didn't choose one
    // yet so exit.
    
0: Exit;
    // Now we have the options. Change comando accordingly to reflect our option.
    
1: COMANDO := SW_MINIMIZE;
    2: COMANDO := SW_MAXIMIZE;
    3: COMANDO := SW_RESTORE;
    4: COMANDO := SW_HIDE;
    5: COMANDO := SW_SHOW;
    6: COMANDO := SC_SIZE;
    7: COMANDO := SC_MOVE;
    8: COMANDO := SC_CLOSE;
    9: Application.Terminate;
  end;
  // Now we know the command we are ready to procede..
  // So we start looking for the components this form has.
  
for n := 1 to ComponentCount do
  
// Well componentCount starts with 1
  
begin
    
// but ComponentsList starts with 0 (zero) so we make some adjustment
    
T := Components[n - 1];
    // Now we have the component in our T variable and can ask a few questions
    
ParentClass := T.ClassParent;
    // We want to know its ClassParent.
    
OkToProcede := ParentClass = TWinControl;
    // if it is descendant of TWinControl then it's ok to procede.
    
while (ParentClass  niland (OkToProcede = False) do
    begin
      
// Oh no! Not yet. Maybe it descends of a lower class that is
      // descendant of TWinControl. So we keep going back in its "genealogical"
      // tree to see if we can find TWinControl back there somewhere or get to nil.
      
OkToProcede := ParentClass = TWinControl;
      ParentClass := ParentClass.Classparent;
    end;
    // if we got to nil and didn't find TWinControl then we have nothing to do
    // this component doen't accept our kinda of commands.
    
if OkToProcede then
    begin
      
// Does it has the focus?
      
HasTheFocus := (T as TWinControl).Focused;
      // If not AllOfThem and not has the focus so we break to the next one.
      
if (not AllOfThem) and (not HasTheFocus) then  Continue;
      if Tag then
        
// There no SC_SIZE or SC_MOVE or SC_CLOSE command in here so we have to apart.
        
ShowWindow((T as TWinControl).Handle, COMANDO)
      else
        
//  CloseWindow((T as TWinControl).Handle ); Doesn't work. It minimize them.
        //  But this one bellow works. It's possible to show them after closed but
        //  the controls loose some of their properties. Methinks it's dangerous
        
(T as TWinControl).Perform(WM_SYSCOMMAND, COMANDO, 0);
    end;
  end;
end;

// Changing our target
procedure TMessing.TargetClick(Sender: TObject);
begin
  if 
(Sender as TMenuItem).Tag = 40 then
  begin
    
(Sender as TMenuItem).Caption := 'Target: the focused one';
    (Sender as TMenuItem).Tag := 41;
    AllofThem := False;
  end 
  else
  begin
    
(Sender as TMenuItem).Caption := 'Target: all components';
    (Sender as TMenuItem).Tag := 40;
    AllofThem := True;
  end;
end;

end.


 

Bewerten Sie diesen Tipp:

dürftig
ausgezeichnet


Copyright © by SwissDelphiCenter.ch
All trademarks are the sole property of their respective owners