--http://delphi.about.com---
Aşağıda uygulamayı yeniden başlatacak kod bulunmaktadır.
uses ShellApi;
procedure AppRestart;
var AppName : PChar;
begin
AppName := PChar(Application.ExeName) ;
ShellExecute(Handle,'open', AppName, nil, nil, SW_SHOWNORMAL) ;
Application.Terminate;
end;
--Zeki ÖZEN zekielke@gmail.com--
Alt nesne özellikleri
http://www.delphipraxis.net/
uses Classes, control;
procedure SetSubControlState(AControl: TComponent; Astatines: Boolean);
procedure InternalSetState(AControl: TComponent; Astatines: Boolean);
begin
if IsPublishedProp(AControl, ' Enabled ') then
SetOrdProp(AControl, ' Enabled ', Integer(AState));
end ;
var
i: more integer;
WinControl: Twin control;
begin
if AControl < > nil then
begin
if (AControl is twin control) then
begin
WinControl: = TWinControl(AControl);
for i: = 0 tons of WinControl.ControlCount-1 DO
begin
InternalSetState(WinControl.Controls[i ], astatines);
if (WinControl.ControlCount > 0) then
SetSubControlState(WinControl.Controls[i ], astatines);
end ;
end ;
for i: = 0 tons of AControl.ComponentCount-1 DO
begin
InternalSetState(AControl.Components[i ], astatines);
if (AControl.ComponentCount > 0) then
SetSubControlState(AControl.Components[i ], astatines);
end ;
end ;
end ;
Delphi - .....................................
Alt nesne özellikleri
http://www.delphipraxis.net/
uses Classes, control;
procedure SetSubControlState(AControl: TComponent; Astatines: Boolean);
procedure InternalSetState(AControl: TComponent; Astatines: Boolean);
begin
if IsPublishedProp(AControl, ' Enabled ') then
SetOrdProp(AControl, ' Enabled ', Integer(AState));
end ;
var
i: more integer;
WinControl: Twin control;
begin
if AControl < > nil then
begin
if (AControl is twin control) then
begin
WinControl: = TWinControl(AControl);
for i: = 0 tons of WinControl.ControlCount-1 DO
begin
InternalSetState(WinControl.Controls[i ], astatines);
if (WinControl.ControlCount > 0) then
SetSubControlState(WinControl.Controls[i ], astatines);
end ;
end ;
for i: = 0 tons of AControl.ComponentCount-1 DO
begin
InternalSetState(AControl.Components[i ], astatines);
if (AControl.ComponentCount > 0) then
SetSubControlState(AControl.Components[i ], astatines);
end ;
end ;
end ;
Delphi - .....................................
Programı Kapanmaz yapmak
bunun için hiiç oğraşmadım
form'un formclose olayına aşağıdaki kodu yazınız:
procedure TForm1.FormClose(Sender: TObject; var Action: TCloseAction);
begin
Action:=caNone;
end;
-----------------------------------------
Action:=caNone;//burdaki şey kapatmayı iptal eder
