Kod: Tümünü seç
procedure TForm2.Kapat1Click(Sender: TObject);
begin
close;
end;
ama aç butonuna projemin ana formu zaten tek form var
Kod: Tümünü seç
procedure TForm2.A1Click(Sender: TObject);
begin
Form1.show;
end;
Kod: Tümünü seç
procedure TForm2.Kapat1Click(Sender: TObject);
begin
close;
end;
Kod: Tümünü seç
procedure TForm2.A1Click(Sender: TObject);
begin
Form1.show;
end;
Kod: Tümünü seç
procedure TfrmMain.ApplicationEvents1Minimize(Sender: TObject);
begin
Self.Hide();
Self.WindowState := wsMinimized;
TrayIcon1.IconIndex := 0;
TrayIcon1.Visible := True;
end;
Kod: Tümünü seç
procedure TfrmMain.ApplicationEvents1Restore(Sender: TObject);
begin
Self.Show();
Self.WindowState := wsNormal;
Application.BringToFront();
end;
Kod: Tümünü seç
procedure TfrmMain.TrayIcon1DblClick(Sender: TObject);
begin
if Self.WindowState = wsMinimized then ApplicationEvents1Restore(Self);
end;
Kod: Tümünü seç
procedure TFRM_Main.AppEv_Minimize(Sender: TObject);
begin
if IsIconic(Application.Handle)then ShowWindow(Application.Handle, SW_HIDE);
end;
procedure TFRM_Main.AppEv_Restore(Sender: TObject);
begin
if IsIconic(Application.Handle)then ShowWindow(Application.Handle, SW_RESTORE);
end;